home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-08-27 | 28.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'HELP('
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 48 45 4c 50 28 00 00 00 | c9 00 00 00 ff ff ff ff |HELP(...|........|
|00000010| 2c 00 00 00 00 fd ff ff | 00 00 00 00 d0 01 00 00 |,.......|........|
|00000020| 00 01 00 00 00 00 00 00 | 24 00 00 00 44 49 52 24 |........|$...DIR$|
|00000030| d8 01 00 00 d8 01 00 00 | 04 02 00 00 46 fd ff ff |........|....F...|
|00000040| b8 ad 20 00 ec 00 00 00 | 13 00 00 00 00 00 00 00 |.. .....|........|
|00000050| 21 52 6f 6f 74 00 00 00 | f0 02 00 00 46 fd ff ff |!Root...|....F...|
|00000060| dd ea 21 00 ce 04 00 00 | 13 00 00 00 00 00 00 00 |..!.....|........|
|00000070| 21 61 6c 6c 00 00 00 00 | c0 07 00 00 46 fd ff ff |!all....|....F...|
|00000080| 65 79 20 00 82 00 00 00 | 13 00 00 00 00 00 00 00 |ey .....|........|
|00000090| 21 66 69 6c 65 69 6f 00 | 44 08 00 00 46 fd ff ff |!fileio.|D...F...|
|000000a0| fa e8 8f 15 bc 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|000000b0| 21 67 72 61 70 68 69 63 | 73 00 00 00 00 09 00 00 |!graphic|s.......|
|000000c0| 46 fd ff ff 33 7e 20 00 | c9 00 00 00 13 00 00 00 |F...3~ .|........|
|000000d0| 00 00 00 00 21 69 6d 6d | 65 64 69 61 74 65 00 00 |....!imm|ediate..|
|000000e0| cc 09 00 00 46 fd ff ff | 1d 9f 1e 00 f0 00 00 00 |....F...|........|
|000000f0| 13 00 00 00 00 00 00 00 | 21 6d 61 74 68 00 00 00 |........|!math...|
|00000100| bc 0a 00 00 46 fd ff ff | 62 09 b3 06 8e 01 00 00 |....F...|b.......|
|00000110| 13 00 00 00 00 00 00 00 | 21 72 65 73 74 00 00 00 |........|!rest...|
|00000120| 4c 0c 00 00 46 fd ff ff | ba 89 20 00 51 00 00 00 |L...F...|.. .Q...|
|00000130| 13 00 00 00 00 00 00 00 | 21 73 6f 75 6e 64 00 00 |........|!sound..|
|00000140| a0 0c 00 00 46 fd ff ff | e4 90 20 00 75 01 00 00 |....F...|.. .u...|
|00000150| 13 00 00 00 00 00 00 00 | 21 73 74 72 75 63 74 66 |........|!structf|
|00000160| 6c 6f 77 00 18 0e 00 00 | 47 fd ff ff f7 07 70 04 |low.....|G.....p.|
|00000170| b0 03 00 00 13 01 00 00 | 00 00 00 00 5b 41 2d 43 |........|....[A-C|
|00000180| 5d 00 00 00 ac 24 00 00 | 47 fd ff ff 9c 09 70 04 |]....$..|G.....p.|
|00000190| 60 03 00 00 13 01 00 00 | 00 00 00 00 5b 44 2d 46 |`.......|....[D-F|
|000001a0| 5d 00 00 00 38 32 00 00 | 47 fd ff ff 28 0b 70 04 |]...82..|G...(.p.|
|000001b0| d8 03 00 00 13 01 00 00 | 00 00 00 00 5b 47 2d 4d |........|....[G-M|
|000001c0| 5d 00 00 00 a8 48 00 00 | 47 fd ff ff ec 0c 70 04 |]....H..|G.....p.|
|000001d0| 80 04 00 00 13 01 00 00 | 00 00 00 00 5b 4e 2d 52 |........|....[N-R|
|000001e0| 5d 00 00 00 2c 5e 00 00 | 47 fd ff ff 04 0f 70 04 |]...,^..|G.....p.|
|000001f0| 9c 04 00 00 13 01 00 00 | 00 00 00 00 5b 53 2d 57 |........|....[S-W|
|00000200| 5d 00 00 00 44 41 54 41 | ec 00 00 00 42 41 53 49 |]...DATA|....BASI|
|00000210| 43 0a 59 6f 75 20 63 61 | 6e 20 67 65 74 20 68 65 |C.You ca|n get he|
|00000220| 6c 70 20 6f 6e 20 3a 0a | 23 49 6e 64 65 6e 74 20 |lp on :.|#Indent |
|00000230| 32 0a 3c 47 72 61 70 68 | 69 63 73 3d 3e 21 67 72 |2.<Graph|ics=>!gr|
|00000240| 61 70 68 69 63 73 3e 0a | 3c 46 69 6c 65 20 49 2f |aphics>.|<File I/|
|00000250| 4f 3d 3e 21 66 69 6c 65 | 69 6f 3e 0a 3c 49 6d 6d |O=>!file|io>.<Imm|
|00000260| 65 64 69 61 74 65 20 63 | 6f 6d 6d 61 6e 64 73 3d |ediate c|ommands=|
|00000270| 3e 21 69 6d 6d 65 64 69 | 61 74 65 3e 0a 3c 4d 61 |>!immedi|ate>.<Ma|
|00000280| 74 68 3d 3e 21 6d 61 74 | 68 3e 0a 3c 53 6f 75 6e |th=>!mat|h>.<Soun|
|00000290| 64 3d 3e 21 73 6f 75 6e | 64 3e 0a 3c 53 74 72 75 |d=>!soun|d>.<Stru|
|000002a0| 63 74 75 72 65 20 2f 20 | 46 6c 6f 77 3d 3e 21 73 |cture / |Flow=>!s|
|000002b0| 74 72 75 63 74 66 6c 6f | 77 3e 0a 23 49 6e 64 65 |tructflo|w>.#Inde|
|000002c0| 6e 74 20 30 3b 20 4c 69 | 6e 65 3b 20 49 6e 64 65 |nt 0; Li|ne; Inde|
|000002d0| 6e 74 20 32 0a 3c 41 6c | 6c 3d 3e 21 61 6c 6c 3e |nt 2.<Al|l=>!all>|
|000002e0| 20 20 20 3c 52 65 73 74 | 3d 3e 21 72 65 73 74 3e | <Rest|=>!rest>|
|000002f0| 44 41 54 41 ce 04 00 00 | 49 6e 64 65 78 0a 23 54 |DATA....|Index.#T|
|00000300| 61 62 6c 65 20 32 33 20 | 31 30 0a 3c 41 42 53 3e |able 23 |10.<ABS>|
|00000310| 0a 3c 41 43 53 3e 0a 3c | 41 44 56 41 4c 3e 0a 3c |.<ACS>.<|ADVAL>.<|
|00000320| 41 4e 44 3e 0a 3c 41 50 | 50 45 4e 44 3e 0a 3c 41 |AND>.<AP|PEND>.<A|
|00000330| 53 43 3e 0a 3c 41 53 4e | 3e 0a 3c 41 54 4e 3e 0a |SC>.<ASN|>.<ATN>.|
|00000340| 3c 41 55 54 4f 3e 0a 3c | 42 45 41 54 3e 0a 3c 42 |<AUTO>.<|BEAT>.<B|
|00000350| 45 41 54 53 3e 0a 3c 42 | 47 45 54 3e 0a 3c 42 50 |EATS>.<B|GET>.<BP|
|00000360| 55 54 3e 0a 3c 43 41 4c | 4c 3e 0a 3c 43 41 53 45 |UT>.<CAL|L>.<CASE|
|00000370| 3e 0a 3c 43 48 41 49 4e | 3e 0a 3c 43 48 52 3d 3e |>.<CHAIN|>.<CHR=>|
|00000380| 43 48 52 21 78 32 34 3e | 0a 3c 43 49 52 43 4c 45 |CHR!x24>|.<CIRCLE|
|00000390| 3e 0a 3c 43 4c 45 41 52 | 3e 0a 3c 43 4c 47 3e 0a |>.<CLEAR|>.<CLG>.|
|000003a0| 3c 43 4c 4f 53 45 3e 0a | 3c 43 4c 53 3e 0a 43 4f |<CLOSE>.|<CLS>.CO|
|000003b0| 4c 4f 52 0a 3c 43 4f 4c | 4f 55 52 3e 0a 3c 43 4f |LOR.<COL|OUR>.<CO|
|000003c0| 53 3e 0a 3c 43 4f 55 4e | 54 3e 0a 3c 44 41 54 41 |S>.<COUN|T>.<DATA|
|000003d0| 3e 0a 3c 44 45 46 3e 0a | 3c 44 45 47 3e 0a 3c 44 |>.<DEF>.|<DEG>.<D|
|000003e0| 45 4c 45 54 45 3e 0a 3c | 44 49 4d 3e 0a 3c 44 49 |ELETE>.<|DIM>.<DI|
|000003f0| 56 3e 0a 3c 44 52 41 57 | 3e 0a 3c 45 44 49 54 3e |V>.<DRAW|>.<EDIT>|
|00000400| 0a 3c 45 4c 4c 49 50 53 | 45 3e 0a 3c 45 4c 53 45 |.<ELLIPS|E>.<ELSE|
|00000410| 3e 0a 3c 45 4e 44 3e 0a | 3c 45 4e 44 43 41 53 45 |>.<END>.|<ENDCASE|
|00000420| 3e 0a 3c 45 4e 44 49 46 | 3e 0a 3c 45 4e 44 50 52 |>.<ENDIF|>.<ENDPR|
|00000430| 4f 43 3e 0a 3c 45 4e 44 | 57 48 49 4c 45 3e 0a 3c |OC>.<END|WHILE>.<|
|00000440| 45 4e 56 45 4c 4f 50 45 | 3e 0a 3c 45 4f 46 3e 0a |ENVELOPE|>.<EOF>.|
|00000450| 3c 45 4f 52 3e 0a 3c 45 | 52 4c 3e 0a 3c 45 52 52 |<EOR>.<E|RL>.<ERR|
|00000460| 3e 0a 3c 45 52 52 4f 52 | 3e 0a 3c 45 56 41 4c 3e |>.<ERROR|>.<EVAL>|
|00000470| 0a 3c 45 58 50 3e 0a 3c | 45 58 54 3e 0a 3c 46 41 |.<EXP>.<|EXT>.<FA|
|00000480| 4c 53 45 3e 0a 3c 46 49 | 4c 4c 3e 0a 3c 46 4e 3e |LSE>.<FI|LL>.<FN>|
|00000490| 0a 3c 46 4f 52 3e 0a 3c | 47 43 4f 4c 3e 0a 3c 47 |.<FOR>.<|GCOL>.<G|
|000004a0| 45 54 3e 0a 3c 47 4f 53 | 55 42 3e 0a 3c 47 4f 54 |ET>.<GOS|UB>.<GOT|
|000004b0| 4f 3e 0a 3c 48 45 4c 50 | 3e 0a 3c 48 49 4d 45 4d |O>.<HELP|>.<HIMEM|
|000004c0| 3e 0a 3c 49 46 3e 0a 3c | 49 4e 4b 45 59 3e 0a 3c |>.<IF>.<|INKEY>.<|
|000004d0| 49 4e 50 55 54 3e 0a 3c | 49 4e 53 54 41 4c 4c 3e |INPUT>.<|INSTALL>|
|000004e0| 0a 3c 49 4e 53 54 52 3e | 0a 3c 49 4e 54 3e 0a 3c |.<INSTR>|.<INT>.<|
|000004f0| 4c 45 46 54 3d 3e 4c 45 | 46 54 21 78 32 34 3e 0a |LEFT=>LE|FT!x24>.|
|00000500| 3c 4c 45 4e 3e 0a 3c 4c | 45 54 3e 0a 3c 4c 49 42 |<LEN>.<L|ET>.<LIB|
|00000510| 52 41 52 59 3e 0a 3c 4c | 49 4e 45 3e 0a 3c 4c 49 |RARY>.<L|INE>.<LI|
|00000520| 53 54 3e 0a 3c 4c 49 53 | 54 4f 3e 0a 3c 4c 4e 3e |ST>.<LIS|TO>.<LN>|
|00000530| 0a 3c 4c 4f 41 44 3e 0a | 3c 4c 4f 43 41 4c 3e 0a |.<LOAD>.|<LOCAL>.|
|00000540| 3c 4c 4f 47 3e 0a 3c 4c | 4f 4d 45 4d 3e 0a 3c 4c |<LOG>.<L|OMEM>.<L|
|00000550| 56 41 52 3e 0a 3c 4d 49 | 44 3d 3e 4d 49 44 21 78 |VAR>.<MI|D=>MID!x|
|00000560| 32 34 3e 0a 3c 4d 4f 44 | 3e 0a 3c 4d 4f 44 45 3e |24>.<MOD|>.<MODE>|
|00000570| 0a 3c 4d 4f 55 53 45 3e | 0a 3c 4d 4f 56 45 3e 0a |.<MOUSE>|.<MOVE>.|
|00000580| 3c 4e 45 57 3e 0a 3c 4e | 45 58 54 3e 0a 3c 4e 4f |<NEW>.<N|EXT>.<NO|
|00000590| 54 3e 0a 3c 4f 46 3e 0a | 3c 4f 46 46 3e 0a 3c 4f |T>.<OF>.|<OFF>.<O|
|000005a0| 4c 44 3e 0a 3c 4f 4e 3e | 0a 3c 4f 50 45 4e 49 4e |LD>.<ON>|.<OPENIN|
|000005b0| 3e 0a 3c 4f 50 45 4e 4f | 55 54 3e 0a 3c 4f 50 45 |>.<OPENO|UT>.<OPE|
|000005c0| 4e 55 50 3e 0a 3c 4f 52 | 3e 0a 3c 4f 52 49 47 49 |NUP>.<OR|>.<ORIGI|
|000005d0| 4e 3e 0a 3c 4f 53 43 4c | 49 3e 0a 3c 4f 54 48 45 |N>.<OSCL|I>.<OTHE|
|000005e0| 52 57 49 53 45 3e 0a 3c | 4f 56 45 52 4c 41 59 3e |RWISE>.<|OVERLAY>|
|000005f0| 0a 3c 50 41 47 45 3e 0a | 3c 50 49 3e 0a 3c 50 4c |.<PAGE>.|<PI>.<PL|
|00000600| 4f 54 3e 0a 3c 50 4f 49 | 4e 54 3e 0a 3c 50 4f 53 |OT>.<POI|NT>.<POS|
|00000610| 3e 0a 3c 50 52 49 4e 54 | 3e 0a 3c 50 52 4f 43 3e |>.<PRINT|>.<PROC>|
|00000620| 0a 3c 50 54 52 3e 0a 3c | 51 55 49 54 3e 0a 3c 52 |.<PTR>.<|QUIT>.<R|
|00000630| 41 44 3e 0a 3c 52 45 41 | 44 3e 0a 3c 52 45 43 54 |AD>.<REA|D>.<RECT|
|00000640| 41 4e 47 4c 45 3e 0a 3c | 52 45 4d 3e 0a 3c 52 45 |ANGLE>.<|REM>.<RE|
|00000650| 4e 55 4d 42 45 52 3e 0a | 3c 52 45 50 45 41 54 3e |NUMBER>.|<REPEAT>|
|00000660| 0a 3c 52 45 50 4f 52 54 | 3e 0a 3c 52 45 53 54 4f |.<REPORT|>.<RESTO|
|00000670| 52 45 3e 0a 3c 52 45 54 | 55 52 4e 3e 0a 3c 52 49 |RE>.<RET|URN>.<RI|
|00000680| 47 48 54 3d 3e 52 49 47 | 48 54 21 78 32 34 3e 0a |GHT=>RIG|HT!x24>.|
|00000690| 3c 52 4e 44 3e 0a 3c 52 | 55 4e 3e 0a 3c 53 41 56 |<RND>.<R|UN>.<SAV|
|000006a0| 45 3e 0a 3c 53 47 4e 3e | 0a 3c 53 49 4e 3e 0a 3c |E>.<SGN>|.<SIN>.<|
|000006b0| 53 4f 55 4e 44 3e 0a 3c | 53 50 43 3e 0a 3c 53 51 |SOUND>.<|SPC>.<SQ|
|000006c0| 52 3e 0a 3c 53 54 45 50 | 3e 0a 3c 53 54 45 52 45 |R>.<STEP|>.<STERE|
|000006d0| 4f 3e 0a 3c 53 54 4f 50 | 3e 0a 3c 53 54 52 3d 3e |O>.<STOP|>.<STR=>|
|000006e0| 53 54 52 21 78 32 34 3e | 0a 3c 53 54 52 49 4e 47 |STR!x24>|.<STRING|
|000006f0| 3d 3e 53 54 52 49 4e 47 | 21 78 32 34 3e 0a 3c 53 |=>STRING|!x24>.<S|
|00000700| 55 4d 3e 0a 3c 53 55 4d | 4c 45 4e 3e 0a 3c 53 57 |UM>.<SUM|LEN>.<SW|
|00000710| 41 50 3e 0a 3c 53 59 53 | 3e 0a 3c 54 41 42 3e 0a |AP>.<SYS|>.<TAB>.|
|00000720| 3c 54 41 4e 3e 0a 3c 54 | 45 4d 50 4f 3e 0a 3c 54 |<TAN>.<T|EMPO>.<T|
|00000730| 48 45 4e 3e 0a 3c 54 49 | 4d 45 3e 0a 3c 54 49 4e |HEN>.<TI|ME>.<TIN|
|00000740| 54 3e 0a 3c 54 4f 3e 0a | 3c 54 4f 50 3e 0a 3c 54 |T>.<TO>.|<TOP>.<T|
|00000750| 52 41 43 45 3e 0a 3c 54 | 52 55 45 3e 0a 3c 54 57 |RACE>.<T|RUE>.<TW|
|00000760| 49 4e 3e 0a 3c 54 57 49 | 4e 4f 3e 0a 3c 55 4e 54 |IN>.<TWI|NO>.<UNT|
|00000770| 49 4c 3e 0a 3c 55 53 52 | 3e 0a 3c 56 41 4c 3e 0a |IL>.<USR|>.<VAL>.|
|00000780| 3c 56 44 55 3e 0a 3c 56 | 4f 49 43 45 3e 0a 3c 56 |<VDU>.<V|OICE>.<V|
|00000790| 4f 49 43 45 53 3e 0a 3c | 57 41 49 54 3e 0a 3c 57 |OICES>.<|WAIT>.<W|
|000007a0| 48 45 4e 3e 0a 3c 57 48 | 49 4c 45 3e 0a 3c 57 49 |HEN>.<WH|ILE>.<WI|
|000007b0| 44 54 48 3e 0a 23 45 6e | 64 54 61 62 6c 65 00 00 |DTH>.#En|dTable..|
|000007c0| 44 41 54 41 82 00 00 00 | 46 69 6c 65 20 49 2f 4f |DATA....|File I/O|
|000007d0| 0a 23 54 61 62 6c 65 20 | 36 20 31 30 0a 3c 42 47 |.#Table |6 10.<BG|
|000007e0| 45 54 3e 0a 3c 42 50 55 | 54 3e 0a 3c 43 4c 4f 53 |ET>.<BPU|T>.<CLOS|
|000007f0| 45 3e 0a 3c 45 4f 46 3e | 0a 3c 45 58 54 3e 0a 3c |E>.<EOF>|.<EXT>.<|
|00000800| 47 45 54 3e 0a 3c 49 4e | 50 55 54 3e 0a 3c 4f 50 |GET>.<IN|PUT>.<OP|
|00000810| 45 4e 49 4e 20 3e 0a 3c | 4f 50 45 4e 4f 55 54 3e |ENIN >.<|OPENOUT>|
|00000820| 0a 3c 4f 50 45 4e 55 50 | 20 3e 0a 3c 50 52 49 4e |.<OPENUP| >.<PRIN|
|00000830| 54 3e 0a 3c 50 54 52 3e | 0a 23 45 6e 64 54 61 62 |T>.<PTR>|.#EndTab|
|00000840| 6c 65 00 00 44 41 54 41 | bc 00 00 00 47 72 61 70 |le..DATA|....Grap|
|00000850| 68 69 63 73 0a 23 54 61 | 62 6c 65 20 43 6f 6c 75 |hics.#Ta|ble Colu|
|00000860| 6d 6e 73 20 33 0a 3c 43 | 49 52 43 4c 45 3e 0a 3c |mns 3.<C|IRCLE>.<|
|00000870| 43 4c 47 3e 0a 3c 43 4c | 53 3e 0a 43 4f 4c 4f 52 |CLG>.<CL|S>.COLOR|
|00000880| 0a 3c 43 4f 4c 4f 55 52 | 3e 0a 3c 44 52 41 57 3e |.<COLOUR|>.<DRAW>|
|00000890| 0a 3c 45 4c 4c 49 50 53 | 45 3e 0a 3c 46 49 4c 4c |.<ELLIPS|E>.<FILL|
|000008a0| 3e 0a 3c 47 43 4f 4c 3e | 0a 3c 4c 49 4e 45 3e 0a |>.<GCOL>|.<LINE>.|
|000008b0| 3c 4d 4f 44 45 3e 0a 3c | 4d 4f 56 45 3e 0a 3c 4f |<MODE>.<|MOVE>.<O|
|000008c0| 52 49 47 49 4e 3e 0a 3c | 50 4c 4f 54 3e 0a 3c 50 |RIGIN>.<|PLOT>.<P|
|000008d0| 4f 49 4e 54 3e 0a 3c 50 | 52 49 4e 54 3e 0a 3c 52 |OINT>.<P|RINT>.<R|
|000008e0| 45 43 54 41 4e 47 4c 45 | 3e 0a 3c 54 49 4e 54 3e |ECTANGLE|>.<TINT>|
|000008f0| 0a 3c 56 44 55 3e 0a 23 | 45 6e 64 54 61 62 6c 65 |.<VDU>.#|EndTable|
|00000900| 44 41 54 41 c9 00 00 00 | 49 6d 6d 65 64 69 61 74 |DATA....|Immediat|
|00000910| 65 0a 54 68 65 73 65 20 | 63 61 6e 20 6f 6e 6c 79 |e.These |can only|
|00000920| 20 62 65 20 75 73 65 64 | 20 66 72 6f 6d 0a 42 41 | be used| from.BA|
|00000930| 53 49 43 27 73 20 22 3e | 22 20 70 72 6f 6d 70 74 |SIC's ">|" prompt|
|00000940| 2e 0a 0a 23 54 61 62 6c | 65 20 35 20 31 30 0a 3c |...#Tabl|e 5 10.<|
|00000950| 41 50 50 45 4e 44 3e 0a | 3c 41 55 54 4f 3e 0a 3c |APPEND>.|<AUTO>.<|
|00000960| 44 45 4c 45 54 45 3e 0a | 3c 45 44 49 54 3e 0a 3c |DELETE>.|<EDIT>.<|
|00000970| 48 45 4c 50 3e 0a 3c 4c | 49 53 54 3e 0a 3c 4c 49 |HELP>.<L|IST>.<LI|
|00000980| 53 54 4f 3e 0a 3c 4c 4f | 41 44 3e 0a 3c 4c 56 41 |STO>.<LO|AD>.<LVA|
|00000990| 52 3e 0a 3c 4e 45 57 3e | 0a 3c 4f 4c 44 3e 0a 3c |R>.<NEW>|.<OLD>.<|
|000009a0| 52 45 4e 55 4d 42 45 52 | 3e 0a 3c 53 41 56 45 3e |RENUMBER|>.<SAVE>|
|000009b0| 0a 3c 54 57 49 4e 3e 0a | 3c 54 57 49 4e 4f 3e 0a |.<TWIN>.|<TWINO>.|
|000009c0| 23 45 6e 64 54 61 62 6c | 65 00 00 00 44 41 54 41 |#EndTabl|e...DATA|
|000009d0| f0 00 00 00 4d 61 74 68 | 0a 23 54 61 62 6c 65 20 |....Math|.#Table |
|000009e0| 43 6f 6c 75 6d 6e 73 20 | 33 0a 3c 41 42 53 3e 0a |Columns |3.<ABS>.|
|000009f0| 3c 41 43 53 3e 0a 3c 41 | 53 43 3e 0a 3c 41 53 4e |<ACS>.<A|SC>.<ASN|
|00000a00| 3e 0a 3c 41 54 4e 3e 0a | 3c 43 4f 53 3e 0a 3c 44 |>.<ATN>.|<COS>.<D|
|00000a10| 45 47 3e 0a 3c 44 49 56 | 3e 0a 3c 45 56 41 4c 3e |EG>.<DIV|>.<EVAL>|
|00000a20| 0a 3c 45 58 50 3e 0a 3c | 49 4e 54 3e 0a 3c 4c 4e |.<EXP>.<|INT>.<LN|
|00000a30| 3e 0a 3c 4c 4f 47 3e 0a | 3c 4d 4f 44 3e 0a 3c 52 |>.<LOG>.|<MOD>.<R|
|00000a40| 41 44 3e 0a 3c 52 4e 44 | 3e 0a 3c 53 47 4e 3e 0a |AD>.<RND|>.<SGN>.|
|00000a50| 3c 53 49 4e 3e 0a 3c 53 | 51 52 3e 0a 3c 53 55 4d |<SIN>.<S|QR>.<SUM|
|00000a60| 3e 0a 3c 54 41 4e 3e 0a | 3c 56 41 4c 3e 0a 4c 6f |>.<TAN>.|<VAL>.Lo|
|00000a70| 67 69 63 61 6c 2f 42 69 | 6e 61 72 79 0a 3c 41 4e |gical/Bi|nary.<AN|
|00000a80| 44 3e 0a 3c 45 4f 52 3e | 0a 3c 4e 4f 54 3e 0a 3c |D>.<EOR>|.<NOT>.<|
|00000a90| 4f 52 3e 0a 0a 43 6f 6e | 73 74 61 6e 74 73 0a 3c |OR>..Con|stants.<|
|00000aa0| 46 41 4c 53 45 3e 0a 3c | 50 49 3e 0a 3c 54 52 55 |FALSE>.<|PI>.<TRU|
|00000ab0| 45 3e 0a 23 45 6e 64 54 | 61 62 6c 65 44 41 54 41 |E>.#EndT|ableDATA|
|00000ac0| 8e 01 00 00 52 65 73 74 | 0a 23 54 61 62 6c 65 20 |....Rest|.#Table |
|00000ad0| 31 31 20 31 30 0a 3c 41 | 44 56 41 4c 3e 0a 3c 43 |11 10.<A|DVAL>.<C|
|00000ae0| 48 52 24 3d 3e 43 48 52 | 21 78 32 34 3e 0a 3c 43 |HR$=>CHR|!x24>.<C|
|00000af0| 4c 53 3e 0a 3c 43 4f 55 | 4e 54 3e 0a 3c 45 52 4c |LS>.<COU|NT>.<ERL|
|00000b00| 3e 0a 3c 45 52 52 3e 0a | 3c 45 56 41 4c 3e 0a 3c |>.<ERR>.|<EVAL>.<|
|00000b10| 47 45 54 3e 0a 3c 48 45 | 4c 50 3e 0a 3c 48 49 4d |GET>.<HE|LP>.<HIM|
|00000b20| 45 4d 3e 0a 3c 49 4e 4b | 45 59 3e 0a 3c 49 4e 50 |EM>.<INK|EY>.<INP|
|00000b30| 55 54 3e 0a 3c 49 4e 53 | 54 52 3e 0a 3c 49 4e 54 |UT>.<INS|TR>.<INT|
|00000b40| 3e 0a 3c 4c 45 46 54 24 | 3d 3e 4c 45 46 54 21 78 |>.<LEFT$|=>LEFT!x|
|00000b50| 32 34 3e 0a 3c 4c 45 4e | 3e 0a 3c 4c 49 4e 45 3e |24>.<LEN|>.<LINE>|
|00000b60| 0a 3c 4c 4e 3e 0a 3c 4c | 4f 4d 45 4d 3e 0a 3c 4d |.<LN>.<L|OMEM>.<M|
|00000b70| 49 44 24 3d 3e 4d 49 44 | 21 78 32 34 3e 0a 3c 4d |ID$=>MID|!x24>.<M|
|00000b80| 4f 44 45 3e 0a 3c 4d 4f | 55 53 45 3e 0a 3c 4f 46 |ODE>.<MO|USE>.<OF|
|00000b90| 46 3e 0a 3c 4f 4e 3e 0a | 3c 4f 53 43 4c 49 3e 0a |F>.<ON>.|<OSCLI>.|
|00000ba0| 3c 50 41 47 45 3e 0a 3c | 50 4f 53 3e 0a 3c 50 52 |<PAGE>.<|POS>.<PR|
|00000bb0| 49 4e 54 3e 0a 3c 52 45 | 41 44 3e 0a 3c 52 49 47 |INT>.<RE|AD>.<RIG|
|00000bc0| 48 54 24 3d 3e 52 49 47 | 48 54 21 78 32 34 3e 0a |HT$=>RIG|HT!x24>.|
|00000bd0| 3c 53 50 43 3e 0a 3c 53 | 54 52 24 3d 3e 53 54 52 |<SPC>.<S|TR$=>STR|
|00000be0| 21 78 32 34 3e 0a 3c 53 | 54 52 49 4e 47 24 3d 3e |!x24>.<S|TRING$=>|
|00000bf0| 53 54 52 49 4e 47 21 78 | 32 34 3e 0a 3c 53 55 4d |STRING!x|24>.<SUM|
|00000c00| 4c 45 4e 3e 0a 3c 53 57 | 41 50 3e 0a 3c 54 41 42 |LEN>.<SW|AP>.<TAB|
|00000c10| 3e 0a 3c 54 49 4d 45 3e | 0a 3c 54 49 4e 54 3e 0a |>.<TIME>|.<TINT>.|
|00000c20| 3c 54 4f 50 3e 0a 3c 56 | 41 4c 3e 0a 3c 56 44 55 |<TOP>.<V|AL>.<VDU|
|00000c30| 3e 0a 3c 57 41 49 54 3e | 0a 3c 57 49 44 54 48 3e |>.<WAIT>|.<WIDTH>|
|00000c40| 0a 23 45 6e 64 54 61 62 | 6c 65 00 00 44 41 54 41 |.#EndTab|le..DATA|
|00000c50| 51 00 00 00 53 6f 75 6e | 64 0a 3c 42 45 41 54 3e |Q...Soun|d.<BEAT>|
|00000c60| 0a 3c 42 45 41 54 53 3e | 0a 3c 45 4e 56 45 4c 4f |.<BEATS>|.<ENVELO|
|00000c70| 50 45 3e 0a 3c 53 4f 55 | 4e 44 3e 0a 3c 53 54 45 |PE>.<SOU|ND>.<STE|
|00000c80| 52 45 4f 3e 0a 3c 54 45 | 4d 50 4f 3e 0a 3c 56 4f |REO>.<TE|MPO>.<VO|
|00000c90| 49 43 45 3e 0a 3c 56 4f | 49 43 45 53 3e 00 00 00 |ICE>.<VO|ICES>...|
|00000ca0| 44 41 54 41 75 01 00 00 | 53 74 72 75 63 74 75 72 |DATAu...|Structur|
|00000cb0| 65 2f 46 6c 6f 77 0a 23 | 54 61 62 6c 65 20 31 31 |e/Flow.#|Table 11|
|00000cc0| 20 31 31 0a 3c 43 41 4c | 4c 3e 0a 3c 43 41 53 45 | 11.<CAL|L>.<CASE|
|00000cd0| 3e 0a 3c 43 48 41 49 4e | 3e 0a 3c 43 4c 45 41 52 |>.<CHAIN|>.<CLEAR|
|00000ce0| 3e 0a 3c 44 41 54 41 3e | 0a 3c 44 49 4d 3e 0a 3c |>.<DATA>|.<DIM>.<|
|00000cf0| 45 4c 53 45 3e 0a 3c 44 | 45 46 3e 0a 3c 45 4e 44 |ELSE>.<D|EF>.<END|
|00000d00| 3e 0a 3c 45 4e 44 43 41 | 53 45 3e 0a 3c 45 4e 44 |>.<ENDCA|SE>.<END|
|00000d10| 49 46 3e 0a 3c 45 4e 44 | 50 52 4f 43 3e 0a 3c 45 |IF>.<END|PROC>.<E|
|00000d20| 4e 44 57 48 49 4c 45 3e | 0a 3c 45 52 52 4f 52 3e |NDWHILE>|.<ERROR>|
|00000d30| 0a 3c 46 4e 3e 0a 3c 46 | 4f 52 3e 0a 3c 47 4f 53 |.<FN>.<F|OR>.<GOS|
|00000d40| 55 42 3e 0a 3c 47 4f 54 | 4f 3e 0a 3c 49 46 3e 0a |UB>.<GOT|O>.<IF>.|
|00000d50| 3c 49 4e 53 54 41 4c 4c | 3e 0a 3c 4c 45 54 3e 0a |<INSTALL|>.<LET>.|
|00000d60| 3c 4c 49 42 52 41 52 59 | 3e 0a 3c 4c 4f 43 41 4c |<LIBRARY|>.<LOCAL|
|00000d70| 3e 0a 3c 4e 45 58 54 3e | 0a 3c 4f 4e 3e 0a 3c 4f |>.<NEXT>|.<ON>.<O|
|00000d80| 54 48 45 52 57 49 53 45 | 3e 0a 3c 4f 56 45 52 4c |THERWISE|>.<OVERL|
|00000d90| 41 59 3e 0a 3c 50 52 4f | 43 3e 0a 3c 51 55 49 54 |AY>.<PRO|C>.<QUIT|
|00000da0| 3e 0a 3c 52 45 4d 3e 0a | 3c 52 45 50 45 41 54 3e |>.<REM>.|<REPEAT>|
|00000db0| 0a 3c 52 45 50 4f 52 54 | 3e 0a 3c 52 45 53 54 4f |.<REPORT|>.<RESTO|
|00000dc0| 52 45 3e 0a 3c 52 45 54 | 55 52 4e 3e 0a 3c 52 55 |RE>.<RET|URN>.<RU|
|00000dd0| 4e 3e 0a 3c 53 54 4f 50 | 3e 0a 3c 53 59 53 3e 0a |N>.<STOP|>.<SYS>.|
|00000de0| 3c 54 48 45 4e 3e 0a 3c | 54 52 41 43 45 3e 0a 3c |<THEN>.<|TRACE>.<|
|00000df0| 55 4e 54 49 4c 3e 0a 3c | 55 53 52 3e 0a 3c 57 48 |UNTIL>.<|USR>.<WH|
|00000e00| 45 4e 3e 0a 3c 57 48 49 | 4c 45 3e 0a 23 45 6e 64 |EN>.<WHI|LE>.#End|
|00000e10| 54 61 62 6c 65 00 00 00 | 44 49 52 24 b0 03 00 00 |Table...|DIR$....|
|00000e20| b0 03 00 00 c8 11 00 00 | 45 ff ff ff a1 9f e8 df |........|E.......|
|00000e30| 51 00 00 00 13 00 00 00 | 00 00 00 00 41 42 53 00 |Q.......|....ABS.|
|00000e40| 1c 12 00 00 45 ff ff ff | ab 9f e8 df 7c 00 00 00 |....E...|....|...|
|00000e50| 13 00 00 00 00 00 00 00 | 41 43 53 00 98 12 00 00 |........|ACS.....|
|00000e60| 45 ff ff ff b5 9f e8 df | 56 00 00 00 13 00 00 00 |E.......|V.......|
|00000e70| 00 00 00 00 41 44 56 41 | 4c 00 00 00 f0 12 00 00 |....ADVA|L.......|
|00000e80| 45 ff ff ff b6 9f e8 df | 41 00 00 00 13 00 00 00 |E.......|A.......|
|00000e90| 00 00 00 00 41 4e 44 00 | 34 13 00 00 45 ff ff ff |....AND.|4...E...|
|00000ea0| b8 9f e8 df 60 00 00 00 | 13 00 00 00 00 00 00 00 |....`...|........|
|00000eb0| 41 50 50 45 4e 44 00 00 | 94 13 00 00 45 ff ff ff |APPEND..|....E...|
|00000ec0| ba 9f e8 df 73 00 00 00 | 13 00 00 00 00 00 00 00 |....s...|........|
|00000ed0| 41 53 43 00 08 14 00 00 | 45 ff ff ff bb 9f e8 df |ASC.....|E.......|
|00000ee0| 79 00 00 00 13 00 00 00 | 00 00 00 00 41 53 4e 00 |y.......|....ASN.|
|00000ef0| 84 14 00 00 45 ff ff ff | bd 9f e8 df 59 00 00 00 |....E...|....Y...|
|00000f00| 13 00 00 00 00 00 00 00 | 41 54 4e 00 e0 14 00 00 |........|ATN.....|
|00000f10| 45 ff ff ff c6 9f e8 df | 76 00 00 00 13 00 00 00 |E.......|v.......|
|00000f20| 00 00 00 00 41 55 54 4f | 00 00 00 00 58 15 00 00 |....AUTO|....X...|
|00000f30| 45 ff ff ff c7 9f e8 df | 3e 00 00 00 13 00 00 00 |E.......|>.......|
|00000f40| 00 00 00 00 42 45 41 54 | 00 00 00 00 98 15 00 00 |....BEAT|........|
|00000f50| 45 ff ff ff c9 9f e8 df | 73 00 00 00 13 00 00 00 |E.......|s.......|
|00000f60| 00 00 00 00 42 45 41 54 | 53 00 00 00 0c 16 00 00 |....BEAT|S.......|
|00000f70| 45 ff ff ff d6 9f e8 df | 4f 00 00 00 13 00 00 00 |E.......|O.......|
|00000f80| 00 00 00 00 42 47 45 54 | 00 00 00 00 5c 16 00 00 |....BGET|....\...|
|00000f90| 45 ff ff ff d8 9f e8 df | 81 00 00 00 13 00 00 00 |E.......|........|
|00000fa0| 00 00 00 00 42 50 55 54 | 00 00 00 00 e0 16 00 00 |....BPUT|........|
|00000fb0| 45 ff ff ff da 9f e8 df | 05 02 00 00 13 00 00 00 |E.......|........|
|00000fc0| 00 00 00 00 43 41 4c 4c | 00 00 00 00 e8 18 00 00 |....CALL|........|
|00000fd0| 45 ff ff ff f9 9f e8 df | 6b 00 00 00 13 00 00 00 |E.......|k.......|
|00000fe0| 00 00 00 00 43 41 53 45 | 00 00 00 00 54 19 00 00 |....CASE|....T...|
|00000ff0| 45 ff ff ff 02 a0 e8 df | 74 00 00 00 13 00 00 00 |E.......|t.......|
|00001000| 00 00 00 00 43 48 41 49 | 4e 00 00 00 c8 19 00 00 |....CHAI|N.......|
|00001010| 45 ff ff ff 05 a0 e8 df | 57 00 00 00 13 00 00 00 |E.......|W.......|
|00001020| 00 00 00 00 43 48 52 21 | 78 32 34 00 20 1a 00 00 |....CHR!|x24. ...|
|00001030| 45 ff ff ff 07 a0 e8 df | 41 00 00 00 13 00 00 00 |E.......|A.......|
|00001040| 00 00 00 00 43 49 52 43 | 4c 45 00 00 64 1a 00 00 |....CIRC|LE..d...|
|00001050| 45 ff ff ff 0a a0 e8 df | 23 00 00 00 13 00 00 00 |E.......|#.......|
|00001060| 00 00 00 00 43 4c 45 41 | 52 00 00 00 88 1a 00 00 |....CLEA|R.......|
|00001070| 46 ff ff ff a5 0b 01 02 | 48 00 00 00 13 00 00 00 |F.......|H.......|
|00001080| 00 00 00 00 43 4c 47 00 | d0 1a 00 00 45 ff ff ff |....CLG.|....E...|
|00001090| 11 a0 e8 df 6d 00 00 00 | 13 00 00 00 00 00 00 00 |....m...|........|
|000010a0| 43 4c 4f 53 45 00 00 00 | 40 1b 00 00 45 ff ff ff |CLOSE...|@...E...|
|000010b0| 14 a0 e8 df 43 00 00 00 | 13 00 00 00 00 00 00 00 |....C...|........|
|000010c0| 43 4c 53 00 00 00 00 00 | 45 ff ff ff bb 93 00 f3 |CLS.....|E.......|
|000010d0| 00 00 00 00 13 00 00 00 | 00 00 00 00 43 4f 4c 4f |........|....COLO|
|000010e0| 52 3e 43 4f 4c 4f 55 52 | 00 00 00 00 84 1b 00 00 |R>COLOUR|........|
|000010f0| 45 ff ff ff 17 a0 e8 df | f4 00 00 00 13 00 00 00 |E.......|........|
|00001100| 00 00 00 00 43 4f 4c 4f | 55 52 00 00 78 1c 00 00 |....COLO|UR..x...|
|00001110| 45 ff ff ff 22 a0 e8 df | 39 00 00 00 13 00 00 00 |E..."...|9.......|
|00001120| 00 00 00 00 43 4f 53 00 | b4 1c 00 00 45 ff ff ff |....COS.|....E...|
|00001130| 23 a0 e8 df 5a 00 00 00 | 13 00 00 00 00 00 00 00 |#...Z...|........|
|00001140| 43 4f 55 4e 54 00 00 00 | 10 1d 00 00 45 fd ff ff |COUNT...|....E...|
|00001150| e2 9f e8 df b7 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00001160| 63 61 6c 6c 30 00 00 00 | c8 1d 00 00 45 fd ff ff |call0...|....E...|
|00001170| e3 9f e8 df e8 01 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00001180| 63 61 6c 6c 31 00 00 00 | b0 1f 00 00 45 fd ff ff |call1...|....E...|
|00001190| ec 9f e8 df eb 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|000011a0| 63 61 6c 6c 32 00 00 00 | 9c 20 00 00 45 fd ff ff |call2...|. ..E...|
|000011b0| ee 9f e8 df 10 04 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|000011c0| 63 61 6c 6c 33 00 00 00 | 44 41 54 41 51 00 00 00 |call3...|DATAQ...|
|000011d0| 41 42 53 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |ABS.This| functio|
|000011e0| 6e 20 67 69 76 65 73 20 | 74 68 65 20 61 62 73 6f |n gives |the abso|
|000011f0| 6c 75 74 65 0a 76 61 6c | 75 65 20 6f 66 20 61 20 |lute.val|ue of a |
|00001200| 6e 75 6d 62 65 72 3a 0a | 41 42 53 28 2d 33 2e 31 |number:.|ABS(-3.1|
|00001210| 34 29 20 3d 20 33 2e 31 | 34 00 00 00 44 41 54 41 |4) = 3.1|4...DATA|
|00001220| 7c 00 00 00 41 43 53 0a | 54 68 69 73 20 66 75 6e ||...ACS.|This fun|
|00001230| 63 74 69 6f 6e 20 67 69 | 76 65 73 20 74 68 65 20 |ction gi|ves the |
|00001240| 61 72 63 20 0a 63 6f 73 | 69 6e 65 20 6f 66 20 61 |arc .cos|ine of a|
|00001250| 20 6e 75 6d 62 65 72 2e | 0a 54 68 69 73 20 69 73 | number.|.This is|
|00001260| 20 74 68 65 20 69 6e 76 | 65 72 73 65 20 66 75 6e | the inv|erse fun|
|00001270| 63 74 69 6f 6e 20 6f 66 | 20 3c 43 4f 53 3e 3a 0a |ction of| <COS>:.|
|00001280| 20 20 20 20 20 20 20 20 | 20 41 43 53 28 43 4f 53 | | ACS(COS|
|00001290| 28 78 29 29 20 3d 20 78 | 44 41 54 41 56 00 00 00 |(x)) = x|DATAV...|
|000012a0| 41 44 56 41 4c 0a 54 68 | 69 73 20 66 75 6e 63 74 |ADVAL.Th|is funct|
|000012b0| 69 6f 6e 20 67 69 76 65 | 73 20 74 68 65 20 0a 76 |ion give|s the .v|
|000012c0| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 73 70 65 63 |alue of |the spec|
|000012d0| 69 66 69 65 64 0a 61 6e | 61 6c 6f 67 75 65 20 70 |ified.an|alogue p|
|000012e0| 6f 72 74 20 6f 72 20 62 | 75 66 66 65 72 2e 00 00 |ort or b|uffer...|
|000012f0| 44 41 54 41 41 00 00 00 | 41 4e 44 0a 42 69 74 77 |DATAA...|AND.Bitw|
|00001300| 69 73 65 20 6c 6f 67 69 | 63 61 6c 20 61 6e 64 20 |ise logi|cal and |
|00001310| 62 65 74 77 65 65 6e 20 | 74 77 6f 20 69 6e 74 65 |between |two inte|
|00001320| 67 65 72 73 2e 0a 50 72 | 69 6f 72 69 74 79 20 36 |gers..Pr|iority 6|
|00001330| 2e 00 00 00 44 41 54 41 | 60 00 00 00 41 50 50 45 |....DATA|`...APPE|
|00001340| 4e 44 20 66 69 6c 65 6e | 61 6d 65 2e 0a 54 68 69 |ND filen|ame..Thi|
|00001350| 73 20 63 6f 6d 6d 61 6e | 64 20 61 70 70 65 6e 64 |s comman|d append|
|00001360| 73 0a 61 20 66 69 6c 65 | 20 74 6f 20 74 68 65 20 |s.a file| to the |
|00001370| 70 72 6f 67 72 61 6d 0a | 61 6e 64 20 72 65 6e 75 |program.|and renu|
|00001380| 6d 62 65 72 73 20 74 68 | 65 20 6e 65 77 20 6c 69 |mbers th|e new li|
|00001390| 6e 65 73 2e 44 41 54 41 | 73 00 00 00 41 53 43 0a |nes.DATA|s...ASC.|
|000013a0| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 67 69 |This fun|ction gi|
|000013b0| 76 65 73 20 74 68 65 0a | 41 53 43 49 49 20 63 6f |ves the.|ASCII co|
|000013c0| 64 65 20 6f 66 20 74 68 | 65 20 66 69 72 73 74 0a |de of th|e first.|
|000013d0| 63 68 61 72 61 63 74 65 | 72 20 6f 66 20 61 20 73 |characte|r of a s|
|000013e0| 74 72 69 6e 67 3a 0a 20 | 20 41 53 43 28 22 41 22 |tring:. | ASC("A"|
|000013f0| 29 20 3d 20 36 35 0a 20 | 20 41 53 43 28 22 41 42 |) = 65. | ASC("AB|
|00001400| 22 29 20 3d 20 36 35 00 | 44 41 54 41 79 00 00 00 |") = 65.|DATAy...|
|00001410| 41 53 4e 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |ASN.This| functio|
|00001420| 6e 20 67 69 76 65 73 20 | 74 68 65 0a 61 72 63 20 |n gives |the.arc |
|00001430| 73 69 6e 65 20 6f 66 20 | 61 20 6e 75 6d 62 65 72 |sine of |a number|
|00001440| 2e 0a 54 68 69 73 20 69 | 73 20 74 68 65 20 69 6e |..This i|s the in|
|00001450| 76 65 72 73 65 20 66 75 | 6e 63 74 69 6f 6e 20 6f |verse fu|nction o|
|00001460| 66 20 3c 53 49 4e 3e 3a | 0a 20 20 20 20 20 20 20 |f <SIN>:|. |
|00001470| 20 20 41 53 4e 28 53 49 | 4e 28 78 29 29 20 3d 20 | ASN(SI|N(x)) = |
|00001480| 78 00 00 00 44 41 54 41 | 59 00 00 00 41 54 4e 20 |x...DATA|Y...ATN |
|00001490| 20 20 20 20 20 20 0a 54 | 68 69 73 20 66 75 6e 63 | .T|his func|
|000014a0| 74 69 6f 6e 20 67 69 76 | 65 73 20 74 68 65 20 0a |tion giv|es the .|
|000014b0| 61 72 63 20 74 61 6e 67 | 65 6e 74 20 6f 66 20 61 |arc tang|ent of a|
|000014c0| 20 6e 75 6d 62 65 72 2e | 0a 20 20 20 41 54 4e 28 | number.|. ATN(|
|000014d0| 3c 54 41 4e 3e 28 78 29 | 29 20 3d 20 78 00 00 00 |<TAN>(x)|) = x...|
|000014e0| 44 41 54 41 76 00 00 00 | 41 55 54 4f 0a 54 68 69 |DATAv...|AUTO.Thi|
|000014f0| 73 20 63 6f 6d 6d 61 6e | 64 20 61 75 74 6f 6d 61 |s comman|d automa|
|00001500| 74 69 63 61 6c 6c 79 20 | 67 65 6e 65 72 61 74 65 |tically |generate|
|00001510| 73 0a 6c 69 6e 65 20 6e | 75 6d 62 65 72 73 20 66 |s.line n|umbers f|
|00001520| 6f 72 20 74 79 70 69 6e | 67 20 69 6e 20 61 20 70 |or typin|g in a p|
|00001530| 72 6f 67 72 61 6d 2e 0a | 41 55 54 4f 20 5b 62 61 |rogram..|AUTO [ba|
|00001540| 73 65 20 6e 75 6d 62 65 | 72 5b 2c 73 74 65 70 20 |se numbe|r[,step |
|00001550| 73 69 7a 65 5d 5d 00 00 | 44 41 54 41 3e 00 00 00 |size]]..|DATA>...|
|00001560| 42 45 41 54 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |BEAT.Thi|s functi|
|00001570| 6f 6e 20 67 69 76 65 73 | 20 74 68 65 0a 63 75 72 |on gives| the.cur|
|00001580| 72 65 6e 74 20 6d 69 63 | 72 6f 62 65 61 74 20 6e |rent mic|robeat n|
|00001590| 75 6d 62 65 72 2e 00 00 | 44 41 54 41 73 00 00 00 |umber...|DATAs...|
|000015a0| 42 45 41 54 53 0a 42 45 | 41 54 53 20 78 0a 20 20 |BEATS.BE|ATS x. |
|000015b0| 53 65 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |Set the |number o|
|000015c0| 66 20 6d 69 63 72 6f 62 | 65 61 74 73 20 69 6e 20 |f microb|eats in |
|000015d0| 61 20 62 61 72 2e 0a 0a | 78 20 3d 20 42 45 41 54 |a bar...|x = BEAT|
|000015e0| 53 0a 20 20 47 69 76 65 | 73 20 74 68 65 20 63 75 |S. Give|s the cu|
|000015f0| 72 72 65 6e 74 20 6e 75 | 6d 62 65 72 20 6f 66 20 |rrent nu|mber of |
|00001600| 6d 69 63 72 6f 62 65 61 | 74 73 2e 00 44 41 54 41 |microbea|ts..DATA|
|00001610| 4f 00 00 00 42 47 45 54 | 23 63 68 61 6e 6e 65 6c |O...BGET|#channel|
|00001620| 0a 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 67 |.This fu|nction g|
|00001630| 69 76 65 73 0a 74 68 65 | 20 6e 65 78 74 20 62 79 |ives.the| next by|
|00001640| 74 65 20 66 72 6f 6d 0a | 74 68 65 20 73 70 65 63 |te from.|the spec|
|00001650| 69 66 69 65 64 20 66 69 | 6c 65 2e 00 44 41 54 41 |ified fi|le..DATA|
|00001660| 81 00 00 00 42 50 55 54 | 0a 42 50 55 54 23 63 68 |....BPUT|.BPUT#ch|
|00001670| 61 6e 6e 65 6c 2c 6e 75 | 6d 62 65 72 0a 20 20 70 |annel,nu|mber. p|
|00001680| 75 74 20 62 79 74 65 20 | 74 6f 20 6f 70 65 6e 20 |ut byte |to open |
|00001690| 66 69 6c 65 2e 0a 0a 42 | 50 55 54 23 63 68 61 6e |file...B|PUT#chan|
|000016a0| 6e 65 6c 2c 73 74 72 69 | 6e 67 5b 3b 5d 0a 20 20 |nel,stri|ng[;]. |
|000016b0| 70 75 74 20 73 74 72 69 | 6e 67 20 74 6f 20 6f 70 |put stri|ng to op|
|000016c0| 65 6e 20 66 69 6c 65 2c | 0a 20 20 77 69 74 68 5b |en file,|. with[|
|000016d0| 6f 75 74 5d 20 6e 65 77 | 6c 69 6e 65 2e 00 00 00 |out] new|line....|
|000016e0| 44 41 54 41 05 02 00 00 | 43 41 4c 4c 20 61 64 64 |DATA....|CALL add|
|000016f0| 72 65 73 73 20 7b 2c 70 | 61 72 61 6d 65 74 65 72 |ress {,p|arameter|
|00001700| 7d 0a 43 61 6c 6c 20 6d | 61 63 68 69 6e 65 20 63 |}.Call m|achine c|
|00001710| 6f 64 65 20 72 6f 75 74 | 69 6e 65 20 61 74 20 74 |ode rout|ine at t|
|00001720| 68 65 20 67 69 76 65 6e | 20 61 64 64 72 65 73 73 |he given| address|
|00001730| 2e 0a 42 65 66 6f 72 65 | 20 74 68 65 20 72 6f 75 |..Before| the rou|
|00001740| 74 69 6e 65 20 69 73 20 | 65 6e 74 65 72 65 64 2c |tine is |entered,|
|00001750| 20 74 68 65 20 61 73 73 | 65 6d 62 6c 65 72 20 0a | the ass|embler .|
|00001760| 72 65 67 69 73 74 65 72 | 73 20 61 72 65 20 73 65 |register|s are se|
|00001770| 74 20 75 70 20 61 73 20 | 66 6f 6c 6c 6f 77 73 3a |t up as |follows:|
|00001780| 0a 20 20 52 30 20 20 3d | 20 41 25 0a 20 20 52 31 |. R0 =| A%. R1|
|00001790| 20 20 3d 20 42 25 0a 20 | 20 52 32 20 20 3d 20 43 | = B%. | R2 = C|
|000017a0| 25 0a 20 20 52 33 20 20 | 3d 20 44 25 0a 20 20 52 |%. R3 |= D%. R|
|000017b0| 34 20 20 3d 20 45 25 0a | 20 20 52 35 20 20 3d 20 |4 = E%.| R5 = |
|000017c0| 46 25 0a 20 20 52 36 20 | 20 3d 20 47 25 0a 20 20 |F%. R6 | = G%. |
|000017d0| 52 37 20 20 3d 20 48 25 | 0a 20 20 52 38 20 20 3d |R7 = H%|. R8 =|
|000017e0| 20 50 6f 69 6e 74 65 72 | 20 74 6f 20 42 41 53 49 | Pointer| to BASI|
|000017f0| 43 27 73 20 77 6f 72 6b | 73 70 61 63 65 0a 20 20 |C's work|space. |
|00001800| 52 39 20 20 3d 20 50 6f | 69 6e 74 65 72 20 74 6f |R9 = Po|inter to|
|00001810| 20 3c 70 61 72 61 6d 65 | 74 65 72 20 6c 69 73 74 | <parame|ter list|
|00001820| 3d 3e 63 61 6c 6c 30 3e | 0a 20 20 52 31 30 20 3d |=>call0>|. R10 =|
|00001830| 20 4e 75 6d 62 65 72 20 | 6f 66 20 70 61 72 61 6d | Number |of param|
|00001840| 65 74 65 72 73 0a 20 20 | 52 31 31 20 3d 20 50 6f |eters. |R11 = Po|
|00001850| 69 6e 74 65 72 20 74 6f | 20 42 41 53 49 43 27 73 |inter to| BASIC's|
|00001860| 20 73 74 72 69 6e 67 20 | 61 63 63 75 6d 75 6c 61 | string |accumula|
|00001870| 74 6f 72 0a 20 20 52 31 | 32 20 3d 20 42 41 53 49 |tor. R1|2 = BASI|
|00001880| 43 27 73 20 4c 49 4e 45 | 20 70 6f 69 6e 74 65 72 |C's LINE| pointer|
|00001890| 0a 20 20 52 31 33 20 3d | 20 42 41 53 49 43 27 73 |. R13 =| BASIC's|
|000018a0| 20 73 74 61 63 6b 0a 20 | 20 52 31 34 20 3d 20 4c | stack. | R14 = L|
|000018b0| 69 6e 6b 20 62 61 63 6b | 20 74 6f 20 42 41 53 49 |ink back| to BASI|
|000018c0| 43 2c 20 61 6e 64 20 3c | 65 6e 76 69 72 6f 6e 6d |C, and <|environm|
|000018d0| 65 6e 74 20 69 6e 66 6f | 3d 3e 63 61 6c 6c 33 3e |ent info|=>call3>|
|000018e0| 20 70 74 72 2e 00 00 00 | 44 41 54 41 6b 00 00 00 | ptr....|DATAk...|
|000018f0| 43 41 53 45 0a 43 41 53 | 45 20 65 78 70 72 20 4f |CASE.CAS|E expr O|
|00001900| 46 0a 20 20 57 48 45 4e | 20 65 78 70 72 7b 2c 65 |F. WHEN| expr{,e|
|00001910| 78 70 72 7d 5e 20 3a 20 | 6c 69 6e 65 73 0a 20 20 |xpr}^ : |lines. |
|00001920| 57 48 45 4e 20 65 78 70 | 72 7b 2c 65 78 70 72 7d |WHEN exp|r{,expr}|
|00001930| 5e 20 3a 20 6c 69 6e 65 | 73 0a 4f 54 48 45 52 57 |^ : line|s.OTHERW|
|00001940| 49 53 45 0a 20 20 6c 69 | 6e 65 73 0a 45 4e 44 43 |ISE. li|nes.ENDC|
|00001950| 41 53 45 00 44 41 54 41 | 74 00 00 00 43 48 41 49 |ASE.DATA|t...CHAI|
|00001960| 4e 20 6e 61 6d 65 0a 4c | 6f 61 64 20 61 6e 64 20 |N name.L|oad and |
|00001970| 72 75 6e 20 61 20 6e 65 | 77 20 42 61 73 69 63 20 |run a ne|w Basic |
|00001980| 70 72 6f 67 72 61 6d 2e | 0a 49 66 20 75 73 65 64 |program.|.If used|
|00001990| 20 66 72 6f 6d 20 77 69 | 74 68 69 6e 20 61 20 42 | from wi|thin a B|
|000019a0| 61 73 69 63 20 70 72 6f | 67 72 61 6d 2c 0a 74 68 |asic pro|gram,.th|
|000019b0| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 64 69 |is progr|am is di|
|000019c0| 73 63 61 72 64 65 64 2e | 44 41 54 41 57 00 00 00 |scarded.|DATAW...|
|000019d0| 43 48 52 24 20 78 0a 54 | 68 69 73 20 66 75 6e 63 |CHR$ x.T|his func|
|000019e0| 74 69 6f 6e 20 67 69 76 | 65 73 0a 74 68 65 20 6f |tion giv|es.the o|
|000019f0| 6e 65 20 63 68 61 72 61 | 63 74 65 72 20 73 74 72 |ne chara|cter str|
|00001a00| 69 6e 67 0a 6f 66 20 74 | 68 65 20 73 75 70 70 6c |ing.of t|he suppl|
|00001a10| 69 65 64 20 41 53 43 49 | 49 20 63 6f 64 65 2e 00 |ied ASCI|I code..|
|00001a20| 44 41 54 41 41 00 00 00 | 43 49 52 43 4c 45 0a 43 |DATAA...|CIRCLE.C|
|00001a30| 49 52 43 4c 45 20 5b 46 | 49 4c 4c 5d 20 78 2c 79 |IRCLE [F|ILL] x,y|
|00001a40| 2c 72 0a 20 20 44 72 61 | 77 20 63 69 72 63 6c 65 |,r. Dra|w circle|
|00001a50| 20 6f 75 74 6c 69 6e 65 | 20 5b 73 6f 6c 69 64 5d | outline| [solid]|
|00001a60| 2e 00 00 00 44 41 54 41 | 23 00 00 00 43 4c 45 41 |....DATA|#...CLEA|
|00001a70| 52 0a 46 6f 72 67 65 74 | 20 61 6c 6c 20 76 61 72 |R.Forget| all var|
|00001a80| 69 61 62 6c 65 73 2e 00 | 44 41 54 41 48 00 00 00 |iables..|DATAH...|
|00001a90| 43 4c 47 0a 43 6c 65 61 | 72 20 67 72 61 70 68 69 |CLG.Clea|r graphi|
|00001aa0| 63 73 20 73 63 72 65 65 | 6e 20 74 6f 20 63 75 72 |cs scree|n to cur|
|00001ab0| 72 65 6e 74 20 67 72 61 | 70 68 69 63 61 6c 20 62 |rent gra|phical b|
|00001ac0| 61 63 6b 72 6f 75 6e 64 | 20 63 6f 6c 6f 75 72 2e |ackround| colour.|
|00001ad0| 44 41 54 41 6d 00 00 00 | 43 4c 4f 53 45 23 63 68 |DATAm...|CLOSE#ch|
|00001ae0| 61 6e 6e 65 6c 0a 43 6c | 6f 73 65 20 66 69 6c 65 |annel.Cl|ose file|
|00001af0| 20 70 72 65 76 69 6f 75 | 73 6c 79 20 6f 70 65 6e | previou|sly open|
|00001b00| 65 64 20 77 69 74 68 0a | 4f 50 45 4e 3c 49 4e 3d |ed with.|OPEN<IN=|
|00001b10| 3e 4f 50 45 4e 49 4e 3e | 2f 3c 55 50 3d 3e 4f 50 |>OPENIN>|/<UP=>OP|
|00001b20| 45 4e 55 50 3e 2f 3c 4f | 55 54 3d 3e 4f 50 45 4e |ENUP>/<O|UT=>OPEN|
|00001b30| 4f 55 54 3e 23 63 68 61 | 6e 6e 65 6c 2e 00 00 00 |OUT>#cha|nnel....|
|00001b40| 44 41 54 41 43 00 00 00 | 43 4c 53 20 20 20 20 20 |DATAC...|CLS |
|00001b50| 20 20 0a 43 6c 65 61 72 | 20 74 65 78 74 20 73 63 | .Clear| text sc|
|00001b60| 72 65 65 6e 20 74 6f 20 | 0a 63 75 72 72 65 6e 74 |reen to |.current|
|00001b70| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 63 6f 6c 6f | backgro|und colo|
|00001b80| 75 72 2e 00 44 41 54 41 | f4 00 00 00 43 4f 4c 4f |ur..DATA|....COLO|
|00001b90| 55 52 0a 43 4f 4c 4f 55 | 52 20 61 20 5b 54 49 4e |UR.COLOU|R a [TIN|
|00001ba0| 54 20 74 5d 0a 20 20 53 | 65 74 20 74 65 78 74 20 |T t]. S|et text |
|00001bb0| 66 6f 72 65 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |foregrou|nd colou|
|00001bc0| 72 0a 20 20 5b 61 6e 64 | 20 74 69 6e 74 5d 20 28 |r. [and| tint] (|
|00001bd0| 62 61 63 6b 67 72 6f 75 | 6e 64 20 31 32 38 2b 61 |backgrou|nd 128+a|
|00001be0| 29 2e 0a 0a 43 4f 4c 4f | 55 52 20 61 2c 70 0a 20 |)...COLO|UR a,p. |
|00001bf0| 20 53 65 74 20 70 61 6c | 65 74 74 65 20 65 6e 74 | Set pal|ette ent|
|00001c00| 72 79 20 66 6f 72 20 6c | 6f 67 69 63 61 6c 0a 20 |ry for l|ogical. |
|00001c10| 20 63 6f 6c 6f 75 72 20 | 61 20 74 6f 20 70 68 79 | colour |a to phy|
|00001c20| 73 69 63 61 6c 20 63 6f | 6c 6f 75 72 20 70 2e 0a |sical co|lour p..|
|00001c30| 0a 43 4f 4c 4f 55 52 20 | 61 2c 72 2c 67 2c 62 0a |.COLOUR |a,r,g,b.|
|00001c40| 20 20 53 65 74 20 70 61 | 6c 65 74 74 65 20 65 6e | Set pa|lette en|
|00001c50| 74 72 79 20 66 6f 72 20 | 61 20 0a 20 20 74 6f 20 |try for |a . to |
|00001c60| 72 2c 20 67 2c 20 62 20 | 70 68 79 73 69 63 61 6c |r, g, b |physical|
|00001c70| 20 63 6f 6c 6f 75 72 2e | 44 41 54 41 39 00 00 00 | colour.|DATA9...|
|00001c80| 43 4f 53 20 78 0a 54 68 | 69 73 20 66 75 6e 63 74 |COS x.Th|is funct|
|00001c90| 69 6f 6e 20 67 69 76 65 | 73 20 74 68 65 0a 63 6f |ion give|s the.co|
|00001ca0| 73 69 6e 65 20 6f 66 20 | 61 20 6e 75 6d 62 65 72 |sine of |a number|
|00001cb0| 2e 00 00 00 44 41 54 41 | 5a 00 00 00 43 4f 55 4e |....DATA|Z...COUN|
|00001cc0| 54 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |T.This f|unction |
|00001cd0| 67 69 76 65 73 20 74 68 | 65 20 6e 75 6d 62 65 72 |gives th|e number|
|00001ce0| 0a 6f 66 20 63 68 61 72 | 61 63 74 65 72 73 20 50 |.of char|acters P|
|00001cf0| 52 49 4e 54 65 64 20 73 | 69 6e 63 65 0a 74 68 65 |RINTed s|ince.the|
|00001d00| 20 6c 61 73 74 20 6e 65 | 77 6c 69 6e 65 2e 00 00 | last ne|wline...|
|00001d10| 44 41 54 41 b7 00 00 00 | 50 61 72 61 6d 65 74 65 |DATA....|Paramete|
|00001d20| 72 20 6c 69 73 74 3a 0a | 20 20 30 20 20 41 64 64 |r list:.| 0 Add|
|00001d30| 72 65 73 73 20 6f 66 20 | 6c 61 73 74 20 70 61 72 |ress of |last par|
|00001d40| 61 6d 65 74 65 72 0a 20 | 20 34 20 20 3c 54 79 70 |ameter. | 4 <Typ|
|00001d50| 65 3d 3e 63 61 6c 6c 31 | 3e 20 6f 66 20 6c 61 73 |e=>call1|> of las|
|00001d60| 74 20 70 61 72 61 6d 65 | 74 65 72 0a 20 20 38 20 |t parame|ter. 8 |
|00001d70| 20 41 64 64 72 65 73 73 | 20 6f 66 20 6c 61 73 74 | Address| of last|
|00001d80| 20 62 75 74 20 6f 6e 65 | 20 70 61 72 61 6d 65 74 | but one| paramet|
|00001d90| 65 72 0a 20 31 32 20 20 | 3c 54 79 70 65 3d 3e 63 |er. 12 |<Type=>c|
|00001da0| 61 6c 6c 31 3e 20 6f 66 | 20 6c 61 73 74 20 62 75 |all1> of| last bu|
|00001db0| 74 20 6f 6e 65 20 70 61 | 72 61 6d 65 74 65 72 0a |t one pa|rameter.|
|00001dc0| 20 20 2e 0a 20 20 2e 00 | 44 41 54 41 e8 01 00 00 | .. ..|DATA....|
|00001dd0| 50 61 72 61 6d 65 74 65 | 72 2d 74 79 70 65 3a 0a |Paramete|r-type:.|
|00001de0| 54 79 70 65 20 45 78 61 | 6d 70 6c 65 20 20 20 20 |Type Exa|mple |
|00001df0| 41 64 64 72 65 73 73 20 | 70 6f 69 6e 74 73 20 74 |Address |points t|
|00001e00| 6f 0a 2d 2d 2d 2d 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |o.---- -|--------|
|00001e10| 2d 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |- ------|--------|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 2d 2d 0a | 26 30 30 30 20 3f 78 20 |-------.|&000 ?x |
|00001e40| 20 20 20 20 20 20 20 20 | 42 79 74 65 2d 61 6c 69 | |Byte-ali|
|00001e50| 67 6e 65 64 20 62 79 74 | 65 0a 26 30 30 34 20 21 |gned byt|e.&004 !|
|00001e60| 78 2c 78 25 2c 78 28 6e | 29 20 42 79 74 65 2d 61 |x,x%,x(n|) Byte-a|
|00001e70| 6c 69 67 6e 65 64 20 77 | 6f 72 64 0a 26 30 30 35 |ligned w|ord.&005|
|00001e80| 20 7c 78 2c 78 2c 78 28 | 6e 29 20 20 42 79 74 65 | |x,x,x(|n) Byte|
|00001e90| 2d 61 6c 69 67 6e 65 64 | 20 35 2d 62 79 74 65 20 |-aligned| 5-byte |
|00001ea0| 72 65 61 6c 0a 26 30 38 | 30 20 78 24 2c 24 28 6e |real.&08|0 x$,$(n|
|00001eb0| 29 20 20 20 20 42 79 74 | 65 2d 61 6c 69 67 6e 65 |) Byt|e-aligne|
|00001ec0| 64 20 61 64 64 72 65 73 | 73 2d 77 6f 72 64 2c 6c |d addres|s-word,l|
|00001ed0| 65 6e 67 74 68 2d 62 79 | 74 65 0a 26 30 38 31 20 |ength-by|te.&081 |
|00001ee0| 24 78 20 20 20 20 20 20 | 20 20 20 53 74 72 69 6e |$x | Strin|
|00001ef0| 67 2c 20 74 65 72 6d 69 | 6e 61 74 65 64 20 62 79 |g, termi|nated by|
|00001f00| 20 31 33 0a 26 31 30 34 | 20 78 25 28 29 20 20 20 | 13.&104| x%() |
|00001f10| 20 20 20 20 57 6f 72 64 | 2d 61 6c 69 67 6e 65 64 | Word|-aligned|
|00001f20| 20 70 74 72 20 74 6f 20 | 69 6e 74 65 67 65 72 20 | ptr to |integer |
|00001f30| 3c 61 72 72 61 79 3d 3e | 63 61 6c 6c 32 3e 0a 26 |<array=>|call2>.&|
|00001f40| 31 30 35 20 78 28 29 20 | 20 20 20 20 20 20 20 57 |105 x() | W|
|00001f50| 6f 72 64 2d 61 6c 69 67 | 6e 65 64 20 70 74 72 20 |ord-alig|ned ptr |
|00001f60| 74 6f 20 72 65 61 6c 20 | 3c 61 72 72 61 79 3d 3e |to real |<array=>|
|00001f70| 63 61 6c 6c 32 3e 0a 26 | 31 38 30 20 78 24 28 29 |call2>.&|180 x$()|
|00001f80| 20 20 20 20 20 20 20 57 | 6f 72 64 2d 61 6c 69 67 | W|ord-alig|
|00001f90| 6e 65 64 20 70 74 72 20 | 74 6f 20 73 74 72 69 6e |ned ptr |to strin|
|00001fa0| 67 20 3c 61 72 72 61 79 | 3d 3e 63 61 6c 6c 32 3e |g <array|=>call2>|
|00001fb0| 44 41 54 41 eb 00 00 00 | 41 72 72 61 79 3a 0a 20 |DATA....|Array:. |
|00001fc0| 20 30 20 20 20 53 75 62 | 73 63 72 69 70 74 20 6c | 0 Sub|script l|
|00001fd0| 69 6d 69 74 20 31 73 74 | 20 64 69 6d 65 6e 73 69 |imit 1st| dimensi|
|00001fe0| 6f 6e 2e 0a 20 20 34 20 | 20 20 53 75 62 73 63 72 |on.. 4 | Subscr|
|00001ff0| 69 70 74 20 6c 69 6d 69 | 74 20 32 6e 64 20 64 69 |ipt limi|t 2nd di|
|00002000| 6d 65 6e 73 69 6f 6e 2e | 0a 20 20 2e 0a 20 20 2e |mension.|. .. .|
|00002010| 0a 20 20 6e 20 20 20 30 | 0a 20 20 6e 2b 34 20 54 |. n 0|. n+4 T|
|00002020| 6f 74 61 6c 20 6e 72 20 | 6f 66 20 65 6e 74 72 69 |otal nr |of entri|
|00002030| 65 73 2e 0a 20 20 6e 2b | 38 20 41 72 72 61 79 20 |es.. n+|8 Array |
|00002040| 65 6c 65 6d 65 6e 74 73 | 2e 2e 0a 0a 0a 44 49 4d |elements|.....DIM|
|00002050| 20 78 28 49 2d 31 2c 4a | 2d 31 2c 4b 2d 31 29 20 | x(I-1,J|-1,K-1) |
|00002060| 3a 0a 0a 41 64 64 72 65 | 73 73 20 6f 66 20 78 28 |:..Addre|ss of x(|
|00002070| 69 2c 6a 2c 6b 29 20 3a | 0a 20 20 28 28 69 2a 4a |i,j,k) :|. ((i*J|
|00002080| 2b 6a 29 2a 4b 2b 6b 29 | 2a 65 6c 65 6d 65 6e 74 |+j)*K+k)|*element|
|00002090| 5f 73 69 7a 65 20 2b 20 | 6e 2b 38 00 44 41 54 41 |_size + |n+8.DATA|
|000020a0| 10 04 00 00 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |....Envi|ronment |
|000020b0| 69 6e 66 6f 3a 0a 20 20 | 30 20 20 42 20 43 41 4c |info:. |0 B CAL|
|000020c0| 4c 32 52 45 41 4c 20 20 | 20 52 65 74 75 72 6e 20 |L2REAL | Return |
|000020d0| 61 64 64 72 65 73 73 2e | 0a 20 20 34 20 20 53 54 |address.|. 4 ST|
|000020e0| 52 41 43 43 20 20 20 20 | 20 20 20 20 53 74 72 69 |RACC | Stri|
|000020f0| 6e 67 20 61 63 63 75 6d | 75 6c 61 74 6f 72 0a 20 |ng accum|ulator. |
|00002100| 20 38 20 20 50 41 47 45 | 20 20 20 20 20 20 20 20 | 8 PAGE| |
|00002110| 20 20 43 75 72 72 65 6e | 74 20 50 41 47 45 20 76 | Curren|t PAGE v|
|00002120| 61 6c 75 65 0a 20 31 32 | 20 20 54 4f 50 20 20 20 |alue. 12| TOP |
|00002130| 20 20 20 20 20 20 20 20 | 43 75 72 72 65 6e 74 20 | |Current |
|00002140| 54 4f 50 20 76 61 6c 75 | 65 0a 20 31 36 20 20 4c |TOP valu|e. 16 L|
|00002150| 4f 4d 45 4d 20 20 20 20 | 20 20 20 20 20 43 75 72 |OMEM | Cur|
|00002160| 72 65 6e 74 20 76 61 72 | 69 61 62 6c 65 20 73 74 |rent var|iable st|
|00002170| 61 72 74 0a 20 32 30 20 | 20 48 49 4d 45 4d 20 20 |art. 20 | HIMEM |
|00002180| 20 20 20 20 20 20 20 43 | 75 72 72 65 6e 74 20 73 | C|urrent s|
|00002190| 74 61 63 6b 20 65 6e 64 | 0a 20 32 34 20 20 4d 45 |tack end|. 24 ME|
|000021a0| 4d 4c 49 4d 49 54 20 20 | 20 20 20 20 4c 69 6d 69 |MLIMIT | Limi|
|000021b0| 74 20 6f 66 20 61 76 61 | 69 6c 61 62 6c 65 20 6d |t of ava|ilable m|
|000021c0| 65 6d 6f 72 79 0a 20 32 | 38 20 20 46 53 41 20 20 |emory. 2|8 FSA |
|000021d0| 20 20 20 20 20 20 20 20 | 20 46 72 65 65 20 73 70 | | Free sp|
|000021e0| 61 63 65 20 73 74 61 72 | 74 0a 20 33 32 20 20 54 |ace star|t. 32 T|
|000021f0| 41 4c 4c 59 20 20 20 20 | 20 20 20 20 20 56 61 6c |ALLY | Val|
|00002200| 75 65 20 6f 66 20 43 4f | 55 4e 54 0a 20 33 36 20 |ue of CO|UNT. 36 |
|00002210| 20 54 49 4d 45 4f 46 20 | 20 20 20 20 20 20 20 6e | TIMEOF | n|
|00002220| 6f 74 20 75 73 65 64 0a | 20 34 30 20 20 45 53 43 |ot used.| 40 ESC|
|00002230| 57 4f 52 44 20 20 20 20 | 20 20 20 45 78 63 65 70 |WORD | Excep|
|00002240| 74 69 6f 6e 20 66 6c 61 | 67 20 77 6f 72 64 0a 20 |tion fla|g word. |
|00002250| 34 34 20 20 57 49 44 54 | 48 4c 4f 43 20 20 20 20 |44 WIDT|HLOC |
|00002260| 20 20 56 61 6c 75 65 20 | 6f 66 20 57 49 44 54 48 | Value |of WIDTH|
|00002270| 0a 20 34 38 20 20 42 20 | 56 41 52 49 4e 44 20 20 |. 48 B |VARIND |
|00002280| 20 20 20 20 47 65 74 20 | 76 61 6c 75 65 20 6f 66 | Get |value of|
|00002290| 20 4c 2d 76 61 6c 75 65 | 0a 20 35 32 20 20 42 20 | L-value|. 52 B |
|000022a0| 53 54 4f 52 45 41 20 20 | 20 20 20 20 53 74 6f 72 |STOREA | Stor|
|000022b0| 65 20 76 61 6c 75 65 20 | 69 6e 74 6f 20 4c 2d 76 |e value |into L-v|
|000022c0| 61 6c 75 65 0a 20 35 36 | 20 20 42 20 53 54 53 54 |alue. 56| B STST|
|000022d0| 4f 52 45 20 20 20 20 20 | 53 74 6f 72 65 20 73 74 |ORE |Store st|
|000022e0| 72 69 6e 67 20 69 6e 74 | 6f 20 74 79 70 65 20 31 |ring int|o type 1|
|000022f0| 32 38 20 73 74 72 69 6e | 67 0a 20 36 30 20 20 42 |28 strin|g. 60 B|
|00002300| 20 4c 56 42 4c 4e 4b 20 | 20 20 20 20 20 43 6f 6e | LVBLNK | Con|
|00002310| 76 65 72 74 20 73 74 72 | 69 6e 67 20 6e 61 6d 65 |vert str|ing name|
|00002320| 20 69 6e 74 6f 20 4c 2d | 76 61 6c 75 65 20 61 64 | into L-|value ad|
|00002330| 64 72 20 61 6e 64 20 74 | 79 70 65 0a 20 36 34 20 |dr and t|ype. 64 |
|00002340| 20 42 20 43 52 45 41 54 | 45 20 20 20 20 20 20 43 | B CREAT|E C|
|00002350| 72 65 61 74 65 20 6e 65 | 77 20 76 61 72 69 61 62 |reate ne|w variab|
|00002360| 6c 65 0a 20 36 38 20 20 | 42 20 45 58 50 52 20 20 |le. 68 |B EXPR |
|00002370| 20 20 20 20 20 20 55 73 | 65 20 65 78 70 72 20 61 | Us|e expr a|
|00002380| 6e 61 6c 79 73 65 72 20 | 6f 6e 20 73 74 72 69 6e |nalyser |on strin|
|00002390| 67 0a 20 37 32 20 20 42 | 20 4d 41 54 43 48 20 20 |g. 72 B| MATCH |
|000023a0| 20 20 20 20 20 4c 65 78 | 69 63 61 6c 20 61 6e 61 | Lex|ical ana|
|000023b0| 6c 79 73 65 20 73 6f 75 | 72 63 65 20 73 74 72 69 |lyse sou|rce stri|
|000023c0| 6e 67 20 74 6f 20 64 65 | 73 74 20 73 74 72 69 6e |ng to de|st strin|
|000023d0| 67 0a 20 37 36 20 20 42 | 20 54 4f 4b 45 4e 41 44 |g. 76 B| TOKENAD|
|000023e0| 44 52 20 20 20 50 74 72 | 20 74 6f 20 73 74 72 69 |DR Ptr| to stri|
|000023f0| 6e 67 20 66 6f 72 20 67 | 69 76 65 6e 20 74 6f 6b |ng for g|iven tok|
|00002400| 65 6e 0a 20 38 30 20 20 | 30 0a 20 38 34 20 20 39 |en. 80 |0. 84 9|
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 72 20 | | Nr |
|00002420| 6f 66 20 61 64 64 69 74 | 69 6f 6e 61 6c 20 72 6f |of addit|ional ro|
|00002430| 75 74 69 6e 65 73 20 70 | 72 65 73 65 6e 74 2e 0a |utines p|resent..|
|00002440| 20 38 38 20 20 42 20 46 | 53 54 41 0a 20 39 32 20 | 88 B F|STA. 92 |
|00002450| 20 42 20 46 4c 44 41 0a | 20 39 36 20 20 42 20 46 | B FLDA.| 96 B F|
|00002460| 41 44 44 0a 31 30 30 20 | 20 42 20 46 53 55 42 0a |ADD.100 | B FSUB.|
|00002470| 31 30 34 20 20 42 20 46 | 4d 55 4c 0a 31 30 38 20 |104 B F|MUL.108 |
|00002480| 20 42 20 46 44 49 56 0a | 31 31 32 20 20 42 20 46 | B FDIV.|112 B F|
|00002490| 4c 4f 41 54 0a 31 31 36 | 20 20 42 20 46 49 58 0a |LOAT.116| B FIX.|
|000024a0| 31 32 30 20 20 42 20 46 | 53 51 52 54 44 49 52 24 |120 B F|SQRTDIR$|
|000024b0| 60 03 00 00 60 03 00 00 | 0c 28 00 00 45 ff ff ff |`...`...|.(..E...|
|000024c0| 25 a0 e8 df a8 00 00 00 | 13 00 00 00 00 00 00 00 |%.......|........|
|000024d0| 44 41 54 41 00 00 00 00 | b4 28 00 00 45 ff ff ff |DATA....|.(..E...|
|000024e0| 26 a0 e8 df 8b 00 00 00 | 13 00 00 00 00 00 00 00 |&.......|........|
|000024f0| 44 45 46 00 40 29 00 00 | 45 ff ff ff 2b a0 e8 df |DEF.@)..|E...+...|
|00002500| 6a 00 00 00 13 00 00 00 | 00 00 00 00 44 45 47 00 |j.......|....DEG.|
|00002510| ac 29 00 00 45 ff ff ff | 2f a0 e8 df 56 00 00 00 |.)..E...|/...V...|
|00002520| 13 00 00 00 00 00 00 00 | 44 45 4c 45 54 45 00 00 |........|DELETE..|
|00002530| 04 2a 00 00 45 ff ff ff | 32 a0 e8 df ed 00 00 00 |.*..E...|2.......|
|00002540| 13 00 00 00 00 00 00 00 | 44 49 4d 00 f4 2a 00 00 |........|DIM..*..|
|00002550| 45 ff ff ff 33 a0 e8 df | 43 00 00 00 13 00 00 00 |E...3...|C.......|
|00002560| 00 00 00 00 44 49 56 00 | 38 2b 00 00 45 ff ff ff |....DIV.|8+..E...|
|00002570| 35 a0 e8 df 46 00 00 00 | 13 00 00 00 00 00 00 00 |5...F...|........|
|00002580| 44 52 41 57 00 00 00 00 | 80 2b 00 00 45 ff ff ff |DRAW....|.+..E...|
|00002590| 3e a0 e8 df 53 00 00 00 | 13 00 00 00 00 00 00 00 |>...S...|........|
|000025a0| 45 44 49 54 00 00 00 00 | d4 2b 00 00 45 ff ff ff |EDIT....|.+..E...|
|000025b0| 3f a0 e8 df 52 00 00 00 | 13 00 00 00 00 00 00 00 |?...R...|........|
|000025c0| 45 4c 4c 49 50 53 45 00 | 28 2c 00 00 45 ff ff ff |ELLIPSE.|(,..E...|
|000025d0| 41 a0 e8 df 30 00 00 00 | 13 00 00 00 00 00 00 00 |A...0...|........|
|000025e0| 45 4c 53 45 00 00 00 00 | 58 2c 00 00 45 ff ff ff |ELSE....|X,..E...|
|000025f0| 43 a0 e8 df ad 00 00 00 | 13 00 00 00 00 00 00 00 |C.......|........|
|00002600| 45 4e 44 00 08 2d 00 00 | 45 ff ff ff 46 a0 e8 df |END..-..|E...F...|
|00002610| 2b 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 43 |+.......|....ENDC|
|00002620| 41 53 45 00 34 2d 00 00 | 45 ff ff ff 4a a0 e8 df |ASE.4-..|E...J...|
|00002630| 24 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 49 |$.......|....ENDI|
|00002640| 46 00 00 00 58 2d 00 00 | 45 ff ff ff 4d a0 e8 df |F...X-..|E...M...|
|00002650| 2f 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 50 |/.......|....ENDP|
|00002660| 52 4f 43 00 88 2d 00 00 | 45 ff ff ff 50 a0 e8 df |ROC..-..|E...P...|
|00002670| 2a 00 00 00 13 00 00 00 | 00 00 00 00 45 4e 44 57 |*.......|....ENDW|
|00002680| 48 49 4c 45 00 00 00 00 | b4 2d 00 00 45 ff ff ff |HILE....|.-..E...|
|00002690| 5a a0 e8 df 4b 00 00 00 | 13 00 00 00 00 00 00 00 |Z...K...|........|
|000026a0| 45 4e 56 45 4c 4f 50 45 | 00 00 00 00 00 2e 00 00 |ENVELOPE|........|
|000026b0| 45 ff ff ff 5c a0 e8 df | 4f 00 00 00 13 00 00 00 |E...\...|O.......|
|000026c0| 00 00 00 00 45 4f 46 00 | 50 2e 00 00 45 ff ff ff |....EOF.|P...E...|
|000026d0| 5d a0 e8 df 4e 00 00 00 | 13 00 00 00 00 00 00 00 |]...N...|........|
|000026e0| 45 4f 52 00 a0 2e 00 00 | 45 ff ff ff 5f a0 e8 df |EOR.....|E..._...|
|000026f0| 49 00 00 00 13 00 00 00 | 00 00 00 00 45 52 4c 00 |I.......|....ERL.|
|00002700| ec 2e 00 00 45 ff ff ff | 61 a0 e8 df 43 00 00 00 |....E...|a...C...|
|00002710| 13 00 00 00 00 00 00 00 | 45 52 52 00 30 2f 00 00 |........|ERR.0/..|
|00002720| 45 ff ff ff 62 a0 e8 df | 7f 00 00 00 13 00 00 00 |E...b...|........|
|00002730| 00 00 00 00 45 52 52 4f | 52 00 00 00 b0 2f 00 00 |....ERRO|R..../..|
|00002740| 45 ff ff ff 64 a0 e8 df | 3d 00 00 00 13 00 00 00 |E...d...|=.......|
|00002750| 00 00 00 00 45 56 41 4c | 00 00 00 00 f0 2f 00 00 |....EVAL|...../..|
|00002760| 45 ff ff ff 66 a0 e8 df | 69 00 00 00 13 00 00 00 |E...f...|i.......|
|00002770| 00 00 00 00 45 58 50 00 | 5c 30 00 00 45 ff ff ff |....EXP.|\0..E...|
|00002780| 6b a0 e8 df 8f 00 00 00 | 13 00 00 00 00 00 00 00 |k.......|........|
|00002790| 45 58 54 00 ec 30 00 00 | 45 ff ff ff 72 a0 e8 df |EXT..0..|E...r...|
|000027a0| 48 00 00 00 13 00 00 00 | 00 00 00 00 46 41 4c 53 |H.......|....FALS|
|000027b0| 45 00 00 00 34 31 00 00 | 45 ff ff ff 75 a0 e8 df |E...41..|E...u...|
|000027c0| 4b 00 00 00 13 00 00 00 | 00 00 00 00 46 49 4c 4c |K.......|....FILL|
|000027d0| 00 00 00 00 80 31 00 00 | 45 ff ff ff 76 a0 e8 df |.....1..|E...v...|
|000027e0| 4e 00 00 00 13 00 00 00 | 00 00 00 00 46 4e 00 00 |N.......|....FN..|
|000027f0| d0 31 00 00 45 ff ff ff | 78 a0 e8 df 65 00 00 00 |.1..E...|x...e...|
|00002800| 13 00 00 00 00 00 00 00 | 46 4f 52 00 44 41 54 41 |........|FOR.DATA|
|00002810| a8 00 00 00 44 41 54 41 | 20 20 20 20 20 20 0a 49 |....DATA| .I|
|00002820| 6e 74 72 6f 64 75 63 65 | 73 20 6c 69 6e 65 20 6f |ntroduce|s line o|
|00002830| 66 20 44 41 54 41 20 74 | 6f 20 62 65 20 3c 52 45 |f DATA t|o be <RE|
|00002840| 41 44 3e 2e 0a 54 68 65 | 20 6c 69 73 74 20 6f 66 |AD>..The| list of|
|00002850| 20 69 74 65 6d 73 20 69 | 73 20 73 65 70 61 72 61 | items i|s separa|
|00002860| 74 65 64 20 62 79 20 63 | 6f 6d 6d 61 73 2e 0a 0a |ted by c|ommas...|
|00002870| 3c 4c 4f 43 41 4c 3e 20 | 44 41 54 41 2c 20 3c 52 |<LOCAL> |DATA, <R|
|00002880| 45 53 54 4f 52 45 3e 20 | 44 41 54 41 3a 20 73 61 |ESTORE> |DATA: sa|
|00002890| 76 65 20 61 6e 64 20 72 | 65 73 74 6f 72 65 20 63 |ve and r|estore c|
|000028a0| 75 72 72 65 6e 74 20 44 | 41 54 41 20 70 6f 69 6e |urrent D|ATA poin|
|000028b0| 74 65 72 2e 44 41 54 41 | 8b 00 00 00 44 45 46 0a |ter.DATA|....DEF.|
|000028c0| 44 45 46 20 3c 46 4e 3e | 7c 3c 50 52 4f 43 3e 6e |DEF <FN>||<PROC>n|
|000028d0| 61 6d 65 20 5b 28 70 61 | 72 61 6d 65 74 65 72 20 |ame [(pa|rameter |
|000028e0| 6c 69 73 74 29 5d 2e 0a | 44 65 66 69 6e 65 20 66 |list)]..|Define f|
|000028f0| 75 6e 63 74 69 6f 6e 20 | 6f 72 20 70 72 6f 63 65 |unction |or proce|
|00002900| 64 75 72 65 0a 45 6e 64 | 20 66 75 6e 63 74 69 6f |dure.End| functio|
|00002910| 6e 20 77 69 74 68 20 3d | 65 78 70 72 65 73 73 69 |n with =|expressi|
|00002920| 6f 6e 2e 0a 45 6e 64 20 | 70 72 6f 63 65 64 75 72 |on..End |procedur|
|00002930| 65 20 77 69 74 68 20 45 | 4e 44 50 52 4f 43 2e 00 |e with E|NDPROC..|
|00002940| 44 41 54 41 6a 00 00 00 | 44 45 47 20 20 20 20 20 |DATAj...|DEG |
|00002950| 20 20 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | .This |function|
|00002960| 20 67 69 76 65 73 20 74 | 68 65 20 76 61 6c 75 65 | gives t|he value|
|00002970| 20 69 6e 20 0a 64 65 67 | 72 65 65 73 20 6f 66 20 | in .deg|rees of |
|00002980| 61 20 6e 75 6d 62 65 72 | 20 69 6e 20 72 61 64 69 |a number| in radi|
|00002990| 61 6e 73 2e 0a 20 20 20 | 20 20 20 20 44 45 47 20 |ans.. | DEG |
|000029a0| 33 2e 31 34 20 3d 20 31 | 38 30 00 00 44 41 54 41 |3.14 = 1|80..DATA|
|000029b0| 56 00 00 00 44 45 4c 45 | 54 45 20 73 74 61 72 74 |V...DELE|TE start|
|000029c0| 2c 65 6e 64 0a 54 68 69 | 73 20 63 6f 6d 6d 61 6e |,end.Thi|s comman|
|000029d0| 64 20 64 65 6c 65 74 65 | 73 20 61 6c 6c 20 6c 69 |d delete|s all li|
|000029e0| 6e 65 73 0a 62 65 74 77 | 65 65 6e 20 74 68 65 20 |nes.betw|een the |
|000029f0| 73 70 65 63 69 66 69 65 | 64 20 6e 75 6d 62 65 72 |specifie|d number|
|00002a00| 73 2e 00 00 44 41 54 41 | ed 00 00 00 44 49 4d 0a |s...DATA|....DIM.|
|00002a10| 44 49 4d 20 66 72 65 64 | 28 31 30 30 2c 31 30 30 |DIM fred|(100,100|
|00002a20| 29 0a 20 20 43 72 65 61 | 74 65 20 61 6e 64 20 69 |). Crea|te and i|
|00002a30| 6e 69 74 69 61 6c 69 73 | 65 20 61 6e 20 61 72 72 |nitialis|e an arr|
|00002a40| 61 79 2e 0a 0a 44 49 4d | 20 66 72 65 64 25 20 31 |ay...DIM| fred% 1|
|00002a50| 30 30 0a 20 20 41 6c 6c | 6f 63 61 74 65 20 73 70 |00. All|ocate sp|
|00002a60| 61 63 65 20 66 6f 72 20 | 61 20 62 79 74 65 20 61 |ace for |a byte a|
|00002a70| 72 72 61 79 20 65 74 63 | 2e 0a 0a 44 49 4d 28 66 |rray etc|...DIM(f|
|00002a80| 72 65 64 28 29 29 0a 20 | 20 46 75 6e 63 74 69 6f |red()). | Functio|
|00002a90| 6e 20 67 69 76 65 73 20 | 74 68 65 20 6e 75 6d 62 |n gives |the numb|
|00002aa0| 65 72 20 6f 66 20 64 69 | 6d 65 6e 73 69 6f 6e 73 |er of di|mensions|
|00002ab0| 2e 0a 0a 44 49 4d 28 66 | 72 65 64 28 29 2c 6e 29 |...DIM(f|red(),n)|
|00002ac0| 0a 20 20 46 75 6e 63 74 | 69 6f 6e 20 67 69 76 65 |. Funct|ion give|
|00002ad0| 73 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |s the si|ze of th|
|00002ae0| 65 20 6e 27 74 68 20 64 | 69 6d 65 6e 73 69 6f 6e |e n'th d|imension|
|00002af0| 2e 00 00 00 44 41 54 41 | 43 00 00 00 61 20 44 49 |....DATA|C...a DI|
|00002b00| 56 20 62 0a 49 6e 74 65 | 67 65 72 20 64 69 76 69 |V b.Inte|ger divi|
|00002b10| 73 69 6f 6e 2c 20 72 6f | 75 6e 64 65 64 20 74 6f |sion, ro|unded to|
|00002b20| 77 61 72 64 73 20 7a 65 | 72 6f 2e 0a 50 72 69 6f |wards ze|ro..Prio|
|00002b30| 72 69 74 79 20 33 2e 00 | 44 41 54 41 46 00 00 00 |rity 3..|DATAF...|
|00002b40| 44 52 41 57 20 20 20 20 | 20 20 0a 44 52 41 57 20 |DRAW | .DRAW |
|00002b50| 5b 42 59 5d 20 78 2c 79 | 0a 20 20 47 72 61 70 68 |[BY] x,y|. Graph|
|00002b60| 69 63 73 20 64 72 61 77 | 20 74 6f 20 5b 72 65 6c |ics draw| to [rel|
|00002b70| 61 74 69 76 65 20 62 79 | 5d 20 78 2c 79 2e 00 00 |ative by|] x,y...|
|00002b80| 44 41 54 41 53 00 00 00 | 45 44 49 54 20 20 20 20 |DATAS...|EDIT |
|00002b90| 20 20 0a 54 68 69 73 20 | 63 6f 6d 6d 61 6e 64 20 | .This |command |
|00002ba0| 63 61 6c 6c 73 0a 74 68 | 65 20 41 52 4d 20 42 41 |calls.th|e ARM BA|
|00002bb0| 53 49 43 20 45 64 69 74 | 6f 72 2e 0a 28 52 75 62 |SIC Edit|or..(Rub|
|00002bc0| 62 69 73 68 2e 2e 20 44 | 6f 6e 27 74 20 75 73 65 |bish.. D|on't use|
|00002bd0| 2e 2e 29 00 44 41 54 41 | 52 00 00 00 45 4c 4c 49 |..).DATA|R...ELLI|
|00002be0| 50 53 45 0a 45 4c 4c 49 | 50 53 45 20 5b 46 49 4c |PSE.ELLI|PSE [FIL|
|00002bf0| 4c 5d 20 78 2c 79 2c 6d | 61 6a 2c 6d 69 6e 5b 2c |L] x,y,m|aj,min[,|
|00002c00| 61 6e 67 6c 65 5d 0a 20 | 20 44 72 61 77 20 65 6c |angle]. | Draw el|
|00002c10| 6c 69 70 73 65 20 6f 75 | 74 6c 69 6e 65 20 5b 73 |lipse ou|tline [s|
|00002c20| 6f 6c 69 64 5d 2e 00 00 | 44 41 54 41 30 00 00 00 |olid]...|DATA0...|
|00002c30| 45 4c 53 45 0a 50 61 72 | 74 20 6f 66 20 74 68 65 |ELSE.Par|t of the|
|00002c40| 20 3c 49 46 3e 0a 6f 72 | 20 3c 4f 4e 3e 20 73 74 | <IF>.or| <ON> st|
|00002c50| 72 75 63 74 75 72 65 2e | 44 41 54 41 ad 00 00 00 |ructure.|DATA....|
|00002c60| 45 4e 44 0a 45 4e 44 0a | 20 20 53 74 61 74 65 6d |END.END.| Statem|
|00002c70| 65 6e 74 20 6d 61 72 6b | 69 6e 67 20 65 6e 64 20 |ent mark|ing end |
|00002c80| 6f 66 20 70 72 6f 67 72 | 61 6d 20 65 78 65 63 75 |of progr|am execu|
|00002c90| 74 69 6f 6e 2e 0a 0a 45 | 4e 44 20 3d 20 65 78 70 |tion...E|ND = exp|
|00002ca0| 72 65 73 73 69 6f 6e 0a | 20 20 41 6c 74 65 72 20 |ression.| Alter |
|00002cb0| 61 6d 6f 75 6e 74 20 6f | 66 20 6d 65 6d 6f 72 79 |amount o|f memory|
|00002cc0| 20 61 6c 6c 6f 63 61 74 | 65 64 20 74 6f 20 42 41 | allocat|ed to BA|
|00002cd0| 53 49 43 2e 0a 0a 78 20 | 3d 20 45 4e 44 0a 20 20 |SIC...x |= END. |
|00002ce0| 47 69 76 65 73 20 74 68 | 65 20 65 6e 64 20 61 64 |Gives th|e end ad|
|00002cf0| 64 72 65 73 73 20 6f 66 | 20 6d 65 6d 6f 72 79 20 |dress of| memory |
|00002d00| 75 73 65 64 2e 00 00 00 | 44 41 54 41 2b 00 00 00 |used....|DATA+...|
|00002d10| 45 4e 44 43 41 53 45 20 | 20 20 0a 45 6e 64 20 6f |ENDCASE | .End o|
|00002d20| 66 20 3c 43 41 53 45 3e | 20 73 74 72 75 63 74 75 |f <CASE>| structu|
|00002d30| 72 65 2e 00 44 41 54 41 | 24 00 00 00 45 4e 44 49 |re..DATA|$...ENDI|
|00002d40| 46 0a 45 6e 64 20 6f 66 | 20 3c 49 46 3e 20 73 74 |F.End of| <IF> st|
|00002d50| 72 75 63 74 75 72 65 2e | 44 41 54 41 2f 00 00 00 |ructure.|DATA/...|
|00002d60| 45 4e 44 50 52 4f 43 20 | 20 20 0a 45 6e 64 20 6f |ENDPROC | .End o|
|00002d70| 66 20 70 72 6f 63 65 64 | 75 72 65 20 64 65 66 69 |f proced|ure defi|
|00002d80| 6e 69 74 69 6f 6e 2e 00 | 44 41 54 41 2a 00 00 00 |nition..|DATA*...|
|00002d90| 45 4e 44 57 48 49 4c 45 | 0a 45 6e 64 20 6f 66 20 |ENDWHILE|.End of |
|00002da0| 3c 57 48 49 4c 45 3e 20 | 73 74 72 75 63 74 75 72 |<WHILE> |structur|
|00002db0| 65 2e 00 00 44 41 54 41 | 4b 00 00 00 45 4e 56 45 |e...DATA|K...ENVE|
|00002dc0| 4c 4f 50 45 0a 45 4e 56 | 45 4c 4f 50 45 20 74 61 |LOPE.ENV|ELOPE ta|
|00002dd0| 6b 65 73 20 31 34 20 6e | 75 6d 65 72 69 63 20 0a |kes 14 n|umeric .|
|00002de0| 70 61 72 61 6d 65 74 65 | 72 73 20 73 65 70 61 72 |paramete|rs separ|
|00002df0| 61 74 65 64 20 62 79 20 | 63 6f 6d 6d 61 73 2e 00 |ated by |commas..|
|00002e00| 44 41 54 41 4f 00 00 00 | 45 4f 46 23 63 68 61 6e |DATAO...|EOF#chan|
|00002e10| 6e 65 6c 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |nel.This| functio|
|00002e20| 6e 20 67 69 76 65 73 20 | 54 52 55 45 0a 69 66 20 |n gives |TRUE.if |
|00002e30| 61 74 20 65 6e 64 20 6f | 66 20 6f 70 65 6e 20 66 |at end o|f open f|
|00002e40| 69 6c 65 3b 0a 65 6c 73 | 65 20 46 41 4c 53 45 00 |ile;.els|e FALSE.|
|00002e50| 44 41 54 41 4e 00 00 00 | 61 20 45 4f 52 20 62 0a |DATAN...|a EOR b.|
|00002e60| 42 69 74 77 69 73 65 20 | 6c 6f 67 69 63 61 6c 20 |Bitwise |logical |
|00002e70| 65 78 63 6c 75 73 69 76 | 65 2d 6f 72 0a 62 65 74 |exclusiv|e-or.bet|
|00002e80| 77 65 65 6e 20 74 77 6f | 20 69 6e 74 65 67 65 72 |ween two| integer|
|00002e90| 73 2e 0a 50 72 69 6f 72 | 69 74 79 20 37 2e 00 00 |s..Prior|ity 7...|
|00002ea0| 44 41 54 41 49 00 00 00 | 45 52 4c 20 20 20 20 20 |DATAI...|ERL |
|00002eb0| 20 20 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | .This |function|
|00002ec0| 20 67 69 76 65 73 20 74 | 68 65 20 6c 69 6e 65 0a | gives t|he line.|
|00002ed0| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 6c 61 |number o|f the la|
|00002ee0| 73 74 20 65 72 72 6f 72 | 2e 00 00 00 44 41 54 41 |st error|....DATA|
|00002ef0| 43 00 00 00 45 52 52 0a | 54 68 69 73 20 66 75 6e |C...ERR.|This fun|
|00002f00| 63 74 69 6f 6e 20 67 69 | 76 65 73 20 74 68 65 20 |ction gi|ves the |
|00002f10| 65 72 72 6f 72 0a 6e 75 | 6d 62 65 72 20 6f 66 20 |error.nu|mber of |
|00002f20| 74 68 65 20 6c 61 73 74 | 20 65 72 72 6f 72 2e 00 |the last| error..|
|00002f30| 44 41 54 41 7f 00 00 00 | 45 52 52 4f 52 0a 50 61 |DATA....|ERROR.Pa|
|00002f40| 72 74 20 6f 66 20 4f 4e | 20 45 52 52 4f 52 0a 20 |rt of ON| ERROR. |
|00002f50| 20 20 20 20 20 20 20 4c | 4f 43 41 4c 20 45 52 52 | L|OCAL ERR|
|00002f60| 4f 52 0a 20 20 20 20 61 | 6e 64 20 52 45 53 54 4f |OR. a|nd RESTO|
|00002f70| 52 45 20 45 52 52 4f 52 | 20 73 74 61 74 65 6d 65 |RE ERROR| stateme|
|00002f80| 6e 74 73 2e 0a 43 61 75 | 73 65 20 61 6e 20 65 72 |nts..Cau|se an er|
|00002f90| 72 6f 72 3a 20 45 52 52 | 4f 52 20 5b 45 58 54 5d |ror: ERR|OR [EXT]|
|00002fa0| 20 6e 75 6d 62 65 72 2c | 73 74 72 69 6e 67 2e 00 | number,|string..|
|00002fb0| 44 41 54 41 3d 00 00 00 | 45 56 41 4c 0a 54 68 69 |DATA=...|EVAL.Thi|
|00002fc0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 65 76 61 6c 75 |s functi|on evalu|
|00002fd0| 61 74 65 73 0a 61 20 73 | 74 72 69 6e 67 3a 20 45 |ates.a s|tring: E|
|00002fe0| 56 41 4c 28 22 32 2a 58 | 2b 31 22 29 2e 00 00 00 |VAL("2*X|+1")....|
|00002ff0| 44 41 54 41 69 00 00 00 | 45 58 50 20 78 0a 54 68 |DATAi...|EXP x.Th|
|00003000| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 67 69 76 65 |is funct|ion give|
|00003010| 73 20 74 68 65 20 0a 65 | 78 70 6f 6e 65 6e 74 69 |s the .e|xponenti|
|00003020| 61 6c 20 6f 66 20 61 20 | 6e 75 6d 62 65 72 2e 0a |al of a |number..|
|00003030| 20 20 20 20 3c 4c 4e 3e | 28 45 58 50 28 78 29 29 | <LN>|(EXP(x))|
|00003040| 20 3d 20 78 0a 20 20 20 | 20 45 58 50 28 3c 4c 4e | = x. | EXP(<LN|
|00003050| 3e 28 78 29 29 20 3d 20 | 78 00 00 00 44 41 54 41 |>(x)) = |x...DATA|
|00003060| 8f 00 00 00 45 58 54 23 | 63 68 61 6e 6e 65 6c 0a |....EXT#|channel.|
|00003070| 78 20 3d 20 45 58 54 23 | 63 68 61 6e 6e 65 6c 0a |x = EXT#|channel.|
|00003080| 20 20 47 69 76 65 73 20 | 74 68 65 20 6c 65 6e 67 | Gives |the leng|
|00003090| 74 68 20 28 65 78 74 65 | 6e 74 29 0a 20 20 6f 66 |th (exte|nt). of|
|000030a0| 20 61 6e 20 6f 70 65 6e | 20 66 69 6c 65 2e 0a 0a | an open| file...|
|000030b0| 45 58 54 23 63 68 61 6e | 6e 65 6c 20 3d 20 65 78 |EXT#chan|nel = ex|
|000030c0| 70 72 65 73 73 69 6f 6e | 0a 20 20 53 65 74 73 20 |pression|. Sets |
|000030d0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 61 6e |the leng|th of an|
|000030e0| 20 6f 70 65 6e 20 66 69 | 6c 65 2e 00 44 41 54 41 | open fi|le..DATA|
|000030f0| 48 00 00 00 46 41 4c 53 | 45 20 20 20 20 20 0a 54 |H...FALS|E .T|
|00003100| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 67 69 76 |his func|tion giv|
|00003110| 65 73 20 74 68 65 20 6c | 6f 67 69 63 61 6c 0a 76 |es the l|ogical.v|
|00003120| 61 6c 75 65 20 27 66 61 | 6c 73 65 27 20 69 2e 65 |alue 'fa|lse' i.e|
|00003130| 2e 20 30 2e 44 41 54 41 | 4b 00 00 00 46 49 4c 4c |. 0.DATA|K...FILL|
|00003140| 20 20 20 20 20 20 0a 46 | 49 4c 4c 20 5b 42 59 5d | .F|ILL [BY]|
|00003150| 20 78 2c 79 0a 20 20 46 | 6c 6f 6f 64 20 66 69 6c | x,y. F|lood fil|
|00003160| 6c 20 66 72 6f 6d 20 5b | 72 65 6c 61 74 69 76 65 |l from [|relative|
|00003170| 20 74 6f 5d 20 70 6f 69 | 6e 74 20 78 2c 79 2e 00 | to] poi|nt x,y..|
|00003180| 44 41 54 41 4e 00 00 00 | 46 4e 0a 43 61 6c 6c 20 |DATAN...|FN.Call |
|00003190| 61 20 66 75 6e 63 74 69 | 6f 6e 20 77 69 74 68 20 |a functi|on with |
|000031a0| 46 4e 66 72 65 64 28 78 | 2c 79 29 0a 44 65 66 69 |FNfred(x|,y).Defi|
|000031b0| 6e 65 20 6f 6e 65 20 77 | 69 74 68 20 3c 44 45 46 |ne one w|ith <DEF|
|000031c0| 3e 20 46 4e 66 72 65 64 | 28 61 2c 62 29 2e 00 00 |> FNfred|(a,b)...|
|000031d0| 44 41 54 41 65 00 00 00 | 46 4f 52 0a 46 4f 52 20 |DATAe...|FOR.FOR |
|000031e0| 76 61 72 69 61 62 6c 65 | 20 3d 20 73 74 61 72 74 |variable| = start|
|000031f0| 20 76 61 6c 75 65 20 54 | 4f 20 6c 69 6d 69 74 20 | value T|O limit |
|00003200| 76 61 6c 75 65 20 5b 53 | 54 45 50 20 73 74 65 70 |value [S|TEP step|
|00003210| 20 73 69 7a 65 5d 0a 20 | 20 73 74 61 74 65 6d 65 | size]. | stateme|
|00003220| 6e 74 73 2e 2e 0a 4e 45 | 58 54 20 5b 76 61 72 69 |nts...NE|XT [vari|
|00003230| 61 62 6c 65 5d 00 00 00 | 44 49 52 24 d8 03 00 00 |able]...|DIR$....|
|00003240| d8 03 00 00 10 36 00 00 | 45 ff ff ff 7a a0 e8 df |.....6..|E...z...|
|00003250| ab 00 00 00 13 00 00 00 | 00 00 00 00 47 43 4f 4c |........|....GCOL|
|00003260| 00 00 00 00 bc 36 00 00 | 45 ff ff ff 7d a0 e8 df |.....6..|E...}...|
|00003270| c9 00 00 00 13 00 00 00 | 00 00 00 00 47 45 54 00 |........|....GET.|
|00003280| 88 37 00 00 45 ff ff ff | 80 a0 e8 df 87 00 00 00 |.7..E...|........|
|00003290| 13 00 00 00 00 00 00 00 | 47 4f 53 55 42 00 00 00 |........|GOSUB...|
|000032a0| 10 38 00 00 46 ff ff ff | 3e b4 2b 0b 8b 00 00 00 |.8..F...|>.+.....|
|000032b0| 13 00 00 00 00 00 00 00 | 47 4f 54 4f 00 00 00 00 |........|GOTO....|
|000032c0| 9c 38 00 00 45 ff ff ff | 87 a0 e8 df 48 00 00 00 |.8..E...|....H...|
|000032d0| 13 00 00 00 00 00 00 00 | 48 45 4c 50 00 00 00 00 |........|HELP....|
|000032e0| e4 38 00 00 45 ff ff ff | 91 a0 e8 df 5a 00 00 00 |.8..E...|....Z...|
|000032f0| 13 00 00 00 00 00 00 00 | 48 49 4d 45 4d 00 00 00 |........|HIMEM...|
|00003300| 40 39 00 00 45 ff ff ff | 93 a0 e8 df 98 00 00 00 |@9..E...|........|
|00003310| 13 00 00 00 00 00 00 00 | 49 46 00 00 d8 39 00 00 |........|IF...9..|
|00003320| 45 ff ff ff 95 a0 e8 df | e6 00 00 00 13 00 00 00 |E.......|........|
|00003330| 00 00 00 00 49 4e 4b 45 | 59 00 00 00 00 00 00 00 |....INKE|Y.......|
|00003340| 45 ff ff ff 64 72 c9 ed | 00 00 00 00 13 00 00 00 |E...dr..|........|
|00003350| 00 00 00 00 49 4e 4b 45 | 59 21 78 32 34 3e 49 4e |....INKE|Y!x24>IN|
|00003360| 4b 45 59 00 c0 3a 00 00 | 45 ff ff ff 97 a0 e8 df |KEY..:..|E.......|
|00003370| d0 00 00 00 13 00 00 00 | 00 00 00 00 49 4e 50 55 |........|....INPU|
|00003380| 54 00 00 00 90 3b 00 00 | 45 ff ff ff 99 a0 e8 df |T....;..|E.......|
|00003390| 4f 00 00 00 13 00 00 00 | 00 00 00 00 49 4e 53 54 |O.......|....INST|
|000033a0| 41 4c 4c 00 e0 3b 00 00 | 45 ff ff ff 9c a0 e8 df |ALL..;..|E.......|
|000033b0| 8a 00 00 00 13 00 00 00 | 00 00 00 00 49 4e 53 54 |........|....INST|
|000033c0| 52 00 00 00 6c 3c 00 00 | 45 ff ff ff 9e a0 e8 df |R...l<..|E.......|
|000033d0| 8b 00 00 00 13 00 00 00 | 00 00 00 00 49 4e 54 00 |........|....INT.|
|000033e0| f8 3c 00 00 45 ff ff ff | a0 a0 e8 df 00 01 00 00 |.<..E...|........|
|000033f0| 13 00 00 00 00 00 00 00 | 4c 45 46 54 21 78 32 34 |........|LEFT!x24|
|00003400| 00 00 00 00 f8 3d 00 00 | 45 ff ff ff a8 a0 e8 df |.....=..|E.......|
|00003410| 55 00 00 00 13 00 00 00 | 00 00 00 00 4c 45 4e 00 |U.......|....LEN.|
|00003420| 50 3e 00 00 45 ff ff ff | ab a0 e8 df 48 00 00 00 |P>..E...|....H...|
|00003430| 13 00 00 00 00 00 00 00 | 4c 45 54 00 98 3e 00 00 |........|LET..>..|
|00003440| 45 ff ff ff ac a0 e8 df | 53 00 00 00 13 00 00 00 |E.......|S.......|
|00003450| 00 00 00 00 4c 49 42 52 | 41 52 59 00 ec 3e 00 00 |....LIBR|ARY..>..|
|00003460| 45 ff ff ff ae a0 e8 df | 9d 00 00 00 13 00 00 00 |E.......|........|
|00003470| 00 00 00 00 4c 49 4e 45 | 00 00 00 00 8c 3f 00 00 |....LINE|.....?..|
|00003480| 45 ff ff ff b0 a0 e8 df | 58 01 00 00 13 00 00 00 |E.......|X.......|
|00003490| 00 00 00 00 4c 49 53 54 | 00 00 00 00 e4 40 00 00 |....LIST|.....@..|
|000034a0| 45 ff ff ff b2 a0 e8 df | b4 00 00 00 13 00 00 00 |E.......|........|
|000034b0| 00 00 00 00 4c 49 53 54 | 4f 00 00 00 98 41 00 00 |....LIST|O....A..|
|000034c0| 45 ff ff ff b5 a0 e8 df | 6a 00 00 00 13 00 00 00 |E.......|j.......|
|000034d0| 00 00 00 00 4c 4e 00 00 | 04 42 00 00 45 ff ff ff |....LN..|.B..E...|
|000034e0| b7 a0 e8 df 45 00 00 00 | 13 00 00 00 00 00 00 00 |....E...|........|
|000034f0| 4c 4f 41 44 00 00 00 00 | 4c 42 00 00 45 ff ff ff |LOAD....|LB..E...|
|00003500| bc a0 e8 df ff 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00003510| 4c 4f 43 41 4c 00 00 00 | 4c 43 00 00 45 ff ff ff |LOCAL...|LC..E...|
|00003520| bf a0 e8 df 67 00 00 00 | 13 00 00 00 00 00 00 00 |....g...|........|
|00003530| 4c 4f 47 00 b4 43 00 00 | 45 ff ff ff c0 a0 e8 df |LOG..C..|E.......|
|00003540| 5b 00 00 00 13 00 00 00 | 00 00 00 00 4c 4f 4d 45 |[.......|....LOME|
|00003550| 4d 00 00 00 10 44 00 00 | 45 ff ff ff c4 a0 e8 df |M....D..|E.......|
|00003560| 35 00 00 00 13 00 00 00 | 00 00 00 00 4c 56 41 52 |5.......|....LVAR|
|00003570| 00 00 00 00 48 44 00 00 | 45 ff ff ff c6 a0 e8 df |....HD..|E.......|
|00003580| 20 01 00 00 13 00 00 00 | 00 00 00 00 4d 49 44 21 | .......|....MID!|
|00003590| 78 32 34 00 68 45 00 00 | 45 ff ff ff c9 a0 e8 df |x24.hE..|E.......|
|000035a0| d6 00 00 00 13 00 00 00 | 00 00 00 00 4d 4f 44 00 |........|....MOD.|
|000035b0| 40 46 00 00 45 ff ff ff | cc a0 e8 df 52 00 00 00 |@F..E...|....R...|
|000035c0| 13 00 00 00 00 00 00 00 | 4d 4f 44 45 00 00 00 00 |........|MODE....|
|000035d0| 94 46 00 00 45 ff ff ff | d1 a0 e8 df d3 01 00 00 |.F..E...|........|
|000035e0| 13 00 00 00 00 00 00 00 | 4d 4f 55 53 45 00 00 00 |........|MOUSE...|
|000035f0| 68 48 00 00 45 ff ff ff | d5 a0 e8 df 40 00 00 00 |hH..E...|....@...|
|00003600| 13 00 00 00 00 00 00 00 | 4d 4f 56 45 00 00 00 00 |........|MOVE....|
|00003610| 44 41 54 41 ab 00 00 00 | 47 43 4f 4c 0a 47 43 4f |DATA....|GCOL.GCO|
|00003620| 4c 20 61 20 5b 54 49 4e | 54 20 74 5d 0a 20 20 53 |L a [TIN|T t]. S|
|00003630| 65 74 20 67 72 61 70 68 | 69 63 73 20 66 6f 72 65 |et graph|ics fore|
|00003640| 67 72 6f 75 6e 64 20 63 | 6f 6c 6f 75 72 20 0a 20 |ground c|olour . |
|00003650| 20 5b 61 6e 64 20 74 69 | 6e 74 5d 20 28 62 61 63 | [and ti|nt] (bac|
|00003660| 6b 67 72 6f 75 6e 64 20 | 31 32 38 2b 61 29 2e 0a |kground |128+a)..|
|00003670| 0a 47 43 4f 4c 20 61 63 | 74 69 6f 6e 2c 61 20 5b |.GCOL ac|tion,a [|
|00003680| 54 49 4e 54 20 74 5d 0a | 20 20 53 65 74 20 67 72 |TINT t].| Set gr|
|00003690| 61 70 68 69 63 73 20 66 | 6f 72 65 7c 62 61 63 6b |aphics f|ore|back|
|000036a0| 67 72 6f 75 6e 64 0a 20 | 20 63 6f 6c 6f 75 72 20 |ground. | colour |
|000036b0| 61 6e 64 20 61 63 74 69 | 6f 6e 2e 00 44 41 54 41 |and acti|on..DATA|
|000036c0| c9 00 00 00 47 45 54 0a | 78 20 3d 20 47 45 54 0a |....GET.|x = GET.|
|000036d0| 20 20 47 69 76 65 73 20 | 74 68 65 20 41 53 43 49 | Gives |the ASCI|
|000036e0| 49 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 0a 20 |I value |of the. |
|000036f0| 20 6e 65 78 74 20 69 6e | 70 75 74 20 63 68 61 72 | next in|put char|
|00003700| 61 63 74 65 72 2e 0a 0a | 78 24 20 3d 20 47 45 54 |acter...|x$ = GET|
|00003710| 24 0a 20 20 47 69 76 65 | 73 20 74 68 65 20 6e 65 |$. Give|s the ne|
|00003720| 78 74 20 69 6e 70 75 74 | 20 63 68 61 72 61 63 74 |xt input| charact|
|00003730| 65 72 0a 20 20 61 73 20 | 61 20 6f 6e 65 20 63 68 |er. as |a one ch|
|00003740| 61 72 61 63 74 65 72 20 | 73 74 72 69 6e 67 2e 0a |aracter |string..|
|00003750| 0a 78 24 20 3d 20 47 45 | 54 24 23 63 68 61 6e 6e |.x$ = GE|T$#chann|
|00003760| 65 6c 0a 20 20 47 69 76 | 65 73 20 6e 65 78 74 20 |el. Giv|es next |
|00003770| 73 74 72 69 6e 67 20 66 | 72 6f 6d 20 74 68 65 20 |string f|rom the |
|00003780| 66 69 6c 65 2e 00 00 00 | 44 41 54 41 87 00 00 00 |file....|DATA....|
|00003790| 47 4f 53 55 42 20 6c 69 | 6e 65 20 6e 72 0a 43 61 |GOSUB li|ne nr.Ca|
|000037a0| 6c 6c 20 73 75 62 72 6f | 75 74 69 6e 65 20 61 74 |ll subro|utine at|
|000037b0| 20 67 69 76 65 6e 20 6c | 69 6e 65 20 6e 75 6d 62 | given l|ine numb|
|000037c0| 65 72 2e 0a 44 6f 6e 27 | 74 20 75 73 65 20 74 68 |er..Don'|t use th|
|000037d0| 69 73 21 20 50 6c 65 61 | 73 65 21 20 55 73 65 20 |is! Plea|se! Use |
|000037e0| 6f 66 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 73 0a |of line |numbers.|
|000037f0| 73 68 6f 75 6c 64 20 62 | 65 20 61 76 6f 69 64 65 |should b|e avoide|
|00003800| 64 20 61 74 20 61 6c 6c | 20 63 6f 73 74 73 2e 00 |d at all| costs..|
|00003810| 44 41 54 41 8b 00 00 00 | 47 4f 54 4f 20 6c 69 6e |DATA....|GOTO lin|
|00003820| 65 20 6e 72 20 20 20 20 | 20 0a 43 6f 6e 74 69 6e |e nr | .Contin|
|00003830| 75 65 20 65 78 65 63 75 | 74 69 6f 6e 20 61 74 20 |ue execu|tion at |
|00003840| 73 70 65 63 69 66 69 65 | 64 20 6c 69 6e 65 2e 20 |specifie|d line. |
|00003850| 44 6f 6e 27 74 20 75 73 | 65 20 74 68 69 73 21 20 |Don't us|e this! |
|00003860| 50 6c 65 61 73 65 21 20 | 55 73 65 20 6f 66 20 6c |Please! |Use of l|
|00003870| 69 6e 65 20 6e 75 6d 62 | 65 72 73 20 73 68 6f 75 |ine numb|ers shou|
|00003880| 6c 64 20 62 65 20 61 76 | 6f 69 64 65 64 20 61 74 |ld be av|oided at|
|00003890| 20 61 6c 6c 20 63 6f 73 | 74 73 21 00 44 41 54 41 | all cos|ts!.DATA|
|000038a0| 48 00 00 00 48 45 4c 50 | 20 20 20 20 20 20 0a 54 |H...HELP| .T|
|000038b0| 68 69 73 20 63 6f 6d 6d | 61 6e 64 20 67 69 76 65 |his comm|and give|
|000038c0| 73 20 68 65 6c 70 20 6f | 6e 20 0a 75 73 61 67 65 |s help o|n .usage|
|000038d0| 20 6f 66 20 74 68 65 20 | 69 6e 74 65 72 70 72 65 | of the |interpre|
|000038e0| 74 65 72 2e 44 41 54 41 | 5a 00 00 00 48 49 4d 45 |ter.DATA|Z...HIME|
|000038f0| 4d 0a 54 68 69 73 20 70 | 73 75 65 64 6f 2d 76 61 |M.This p|suedo-va|
|00003900| 72 69 61 62 6c 65 20 72 | 65 61 64 73 20 6f 72 20 |riable r|eads or |
|00003910| 73 65 74 73 20 74 68 65 | 0a 61 64 64 72 65 73 73 |sets the|.address|
|00003920| 20 6f 66 20 74 68 65 20 | 65 6e 64 20 6f 66 20 42 | of the |end of B|
|00003930| 41 53 49 43 27 73 20 6d | 65 6d 6f 72 79 2e 00 00 |ASIC's m|emory...|
|00003940| 44 41 54 41 98 00 00 00 | 49 46 20 20 20 20 20 20 |DATA....|IF |
|00003950| 20 20 0a 53 69 6e 67 6c | 65 20 6c 69 6e 65 20 69 | .Singl|e line i|
|00003960| 66 3a 0a 20 20 49 46 20 | 65 78 70 72 65 73 73 69 |f:. IF |expressi|
|00003970| 6f 6e 20 5b 54 48 45 4e | 5d 20 73 74 61 74 65 6d |on [THEN|] statem|
|00003980| 65 6e 74 73 20 5b 45 4c | 53 45 20 73 74 61 74 65 |ents [EL|SE state|
|00003990| 6d 65 6e 74 73 5d 2e 0a | 0a 42 6c 6f 63 6b 20 69 |ments]..|.Block i|
|000039a0| 66 3a 0a 20 20 49 46 20 | 65 78 70 72 65 73 73 69 |f:. IF |expressi|
|000039b0| 6f 6e 20 54 48 45 4e 0a | 20 20 20 20 6c 69 6e 65 |on THEN.| line|
|000039c0| 73 0a 20 20 5b 45 4c 53 | 45 20 6c 69 6e 65 73 5d |s. [ELS|E lines]|
|000039d0| 0a 20 20 45 4e 44 49 46 | 44 41 54 41 e6 00 00 00 |. ENDIF|DATA....|
|000039e0| 49 4e 4b 45 59 0a 0a 49 | 4e 4b 45 59 24 20 6e 72 |INKEY..I|NKEY$ nr|
|000039f0| 20 3d 20 43 48 52 24 28 | 49 4e 4b 45 59 20 6e 72 | = CHR$(|INKEY nr|
|00003a00| 29 0a 0a 49 4e 4b 45 59 | 20 30 20 74 6f 20 33 32 |)..INKEY| 0 to 32|
|00003a10| 37 36 37 0a 20 20 46 75 | 6e 63 74 69 6f 6e 20 77 |767. Fu|nction w|
|00003a20| 61 69 74 73 20 6e 72 20 | 63 65 6e 74 69 73 65 63 |aits nr |centisec|
|00003a30| 6f 6e 64 73 20 74 6f 20 | 72 65 61 64 20 63 68 61 |onds to |read cha|
|00003a40| 72 61 63 74 65 72 2e 0a | 0a 49 4e 4b 45 59 20 2d |racter..|.INKEY -|
|00003a50| 32 35 35 20 74 6f 20 2d | 31 0a 20 20 46 75 6e 63 |255 to -|1. Func|
|00003a60| 74 69 6f 6e 20 63 68 65 | 63 6b 73 20 73 70 65 63 |tion che|cks spec|
|00003a70| 69 66 69 63 20 6b 65 79 | 20 66 6f 72 20 54 52 55 |ific key| for TRU|
|00003a80| 45 7c 46 41 4c 53 45 2e | 0a 0a 49 4e 4b 45 59 20 |E|FALSE.|..INKEY |
|00003a90| 2d 32 35 36 0a 20 20 46 | 75 6e 63 74 69 6f 6e 20 |-256. F|unction |
|00003aa0| 67 69 76 65 73 20 6f 70 | 65 72 61 74 69 6e 67 20 |gives op|erating |
|00003ab0| 73 79 73 74 65 6d 20 6e | 75 6d 62 65 72 2e 00 00 |system n|umber...|
|00003ac0| 44 41 54 41 d0 00 00 00 | 49 4e 50 55 54 0a 49 4e |DATA....|INPUT.IN|
|00003ad0| 50 55 54 20 5b 4c 49 4e | 45 5d 5b 27 7c 3c 54 41 |PUT [LIN|E]['|<TA|
|00003ae0| 42 3e 7c 3c 53 50 43 3e | 5d 5b 22 64 69 73 70 6c |B>|<SPC>|]["displ|
|00003af0| 61 79 20 73 74 72 69 6e | 67 22 5d 5b 2c 7c 3b 5d |ay strin|g"][,|;]|
|00003b00| 76 61 72 69 61 62 6c 65 | 0a 20 20 49 6e 70 75 74 |variable|. Input|
|00003b10| 20 66 72 6f 6d 20 75 73 | 65 72 2e 0a 20 20 49 4e | from us|er.. IN|
|00003b20| 50 55 54 20 4c 49 4e 45 | 20 2e 2e 2e 20 63 61 6e |PUT LINE| ... can|
|00003b30| 20 61 6c 73 6f 20 62 65 | 20 77 72 69 74 74 65 6e | also be| written|
|00003b40| 20 61 73 20 4c 49 4e 45 | 20 49 4e 50 55 54 20 2e | as LINE| INPUT .|
|00003b50| 2e 2e 0a 0a 49 4e 50 55 | 54 23 63 68 61 6e 6e 65 |....INPU|T#channe|
|00003b60| 6c 2c 6c 69 73 74 20 6f | 66 20 76 61 72 69 61 62 |l,list o|f variab|
|00003b70| 6c 65 73 0a 20 20 49 6e | 70 75 74 20 64 61 74 61 |les. In|put data|
|00003b80| 20 66 72 6f 6d 20 6f 70 | 65 6e 20 66 69 6c 65 2e | from op|en file.|
|00003b90| 44 41 54 41 4f 00 00 00 | 49 4e 53 54 41 4c 4c 20 |DATAO...|INSTALL |
|00003ba0| 66 69 6c 65 6e 61 6d 65 | 0a 50 65 72 6d 61 6e 65 |filename|.Permane|
|00003bb0| 6e 74 6c 79 20 69 6e 73 | 74 61 6c 6c 20 61 20 66 |ntly ins|tall a f|
|00003bc0| 75 6e 63 74 69 6f 6e 20 | 0a 61 6e 64 20 70 72 6f |unction |.and pro|
|00003bd0| 63 65 64 75 72 65 20 6c | 69 62 72 61 72 79 2e 00 |cedure l|ibrary..|
|00003be0| 44 41 54 41 8a 00 00 00 | 49 4e 53 54 52 0a 49 4e |DATA....|INSTR.IN|
|00003bf0| 53 54 52 28 73 74 72 69 | 6e 67 2c 73 75 62 20 73 |STR(stri|ng,sub s|
|00003c00| 74 72 69 6e 67 20 5b 2c | 73 74 61 72 74 20 70 6f |tring [,|start po|
|00003c10| 73 5d 29 0a 20 20 46 69 | 6e 64 20 73 75 62 20 73 |s]). Fi|nd sub s|
|00003c20| 74 72 69 6e 67 20 70 6f | 73 69 74 69 6f 6e 2e 0a |tring po|sition..|
|00003c30| 20 20 0a 20 20 20 20 20 | 20 20 49 4e 53 54 52 28 | . | INSTR(|
|00003c40| 22 41 42 43 22 2c 22 43 | 22 29 20 3d 20 33 0a 20 |"ABC","C|") = 3. |
|00003c50| 20 20 20 20 20 20 49 4e | 53 54 52 28 22 41 42 43 | IN|STR("ABC|
|00003c60| 22 2c 22 58 22 29 20 3d | 20 30 00 00 44 41 54 41 |","X") =| 0..DATA|
|00003c70| 8b 00 00 00 49 4e 54 20 | 6e 72 20 0a 54 68 69 73 |....INT |nr .This|
|00003c80| 20 66 75 6e 63 74 69 6f | 6e 20 67 69 76 65 73 20 | functio|n gives |
|00003c90| 74 68 65 20 6e 65 61 72 | 65 73 74 0a 69 6e 74 65 |the near|est.inte|
|00003ca0| 67 65 72 20 6c 65 73 73 | 20 74 68 61 6e 20 6f 72 |ger less| than or|
|00003cb0| 20 65 71 75 61 6c 20 74 | 6f 20 74 68 65 20 6e 75 | equal t|o the nu|
|00003cc0| 6d 62 65 72 3a 0a 20 20 | 20 20 20 20 20 20 20 20 |mber:. | |
|00003cd0| 49 4e 54 20 20 33 2e 31 | 34 20 3d 20 20 33 0a 20 |INT 3.1|4 = 3. |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 49 4e 54 20 2d 33 2e | | INT -3.|
|00003cf0| 31 34 20 3d 20 2d 34 00 | 44 41 54 41 00 01 00 00 |14 = -4.|DATA....|
|00003d00| 4c 45 46 54 24 0a 4c 45 | 46 54 24 28 73 74 72 69 |LEFT$.LE|FT$(stri|
|00003d10| 6e 67 2c 6e 72 29 0a 20 | 20 47 69 76 65 73 20 6c |ng,nr). | Gives l|
|00003d20| 65 66 74 6d 6f 73 74 20 | 6e 72 20 6f 66 20 63 68 |eftmost |nr of ch|
|00003d30| 61 72 61 63 74 65 72 73 | 20 66 72 6f 6d 20 73 74 |aracters| from st|
|00003d40| 72 69 6e 67 2e 0a 20 20 | 0a 4c 45 46 54 24 28 73 |ring.. |.LEFT$(s|
|00003d50| 74 72 69 6e 67 29 0a 20 | 20 47 69 76 65 73 20 6c |tring). | Gives l|
|00003d60| 65 66 74 6d 6f 73 74 20 | 4c 45 4e 2d 31 20 63 68 |eftmost |LEN-1 ch|
|00003d70| 61 72 61 63 74 65 72 73 | 2e 0a 20 20 0a 4c 45 46 |aracters|.. .LEF|
|00003d80| 54 24 28 73 74 72 69 6e | 67 20 76 61 72 69 61 62 |T$(strin|g variab|
|00003d90| 6c 65 20 5b 2c 63 6f 75 | 6e 74 5d 29 20 3d 20 73 |le [,cou|nt]) = s|
|00003da0| 74 72 69 6e 67 32 0a 20 | 20 4f 76 65 72 77 72 69 |tring2. | Overwri|
|00003db0| 74 65 20 61 6c 6c 20 5b | 6f 72 20 63 6f 75 6e 74 |te all [|or count|
|00003dc0| 5d 20 63 68 61 72 61 63 | 74 65 72 73 20 66 72 6f |] charac|ters fro|
|00003dd0| 6d 20 73 74 61 72 74 2c | 0a 20 20 77 69 74 68 20 |m start,|. with |
|00003de0| 63 68 61 72 61 63 74 65 | 72 73 20 66 72 6f 6d 20 |characte|rs from |
|00003df0| 73 74 72 69 6e 67 32 2e | 44 41 54 41 55 00 00 00 |string2.|DATAU...|
|00003e00| 4c 45 4e 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |LEN.This| functio|
|00003e10| 6e 20 67 69 76 65 73 20 | 74 68 65 0a 6c 65 6e 67 |n gives |the.leng|
|00003e20| 74 68 20 6f 66 20 61 20 | 73 74 72 69 6e 67 2e 0a |th of a |string..|
|00003e30| 20 20 20 20 4c 45 4e 22 | 41 22 20 3d 20 31 0a 20 | LEN"|A" = 1. |
|00003e40| 20 20 20 4c 45 4e 22 22 | 20 20 3d 20 30 00 00 00 | LEN""| = 0...|
|00003e50| 44 41 54 41 48 00 00 00 | 4c 45 54 0a 4f 70 74 69 |DATAH...|LET.Opti|
|00003e60| 6f 6e 61 6c 20 70 61 72 | 74 20 6f 66 20 61 73 73 |onal par|t of ass|
|00003e70| 69 67 6e 6d 65 6e 74 2e | 0a 20 20 20 20 20 20 4c |ignment.|. L|
|00003e80| 45 54 20 41 25 20 3d 20 | 34 32 0a 20 20 20 20 20 |ET A% = |42. |
|00003e90| 20 41 25 20 3d 20 34 32 | 44 41 54 41 53 00 00 00 | A% = 42|DATAS...|
|00003ea0| 4c 49 42 52 41 52 59 20 | 66 69 6c 65 6e 61 6d 65 |LIBRARY |filename|
|00003eb0| 0a 46 75 6e 63 74 69 6f | 6e 73 20 61 6e 64 20 70 |.Functio|ns and p|
|00003ec0| 72 6f 63 65 64 75 72 65 | 73 20 6f 66 20 74 68 65 |rocedure|s of the|
|00003ed0| 0a 6e 61 6d 65 64 20 70 | 72 6f 67 72 61 6d 20 63 |.named p|rogram c|
|00003ee0| 61 6e 20 62 65 20 75 73 | 65 64 2e 00 44 41 54 41 |an be us|ed..DATA|
|00003ef0| 9d 00 00 00 4c 49 4e 45 | 0a 4c 49 4e 45 20 78 31 |....LINE|.LINE x1|
|00003f00| 2c 79 31 2c 78 32 2c 79 | 32 0a 20 20 44 72 61 77 |,y1,x2,y|2. Draw|
|00003f10| 20 61 20 6c 69 6e 65 20 | 66 72 6f 6d 20 78 31 2c | a line |from x1,|
|00003f20| 79 31 20 74 6f 20 78 32 | 2c 79 32 0a 20 20 45 71 |y1 to x2|,y2. Eq|
|00003f30| 75 69 76 61 6c 65 6e 74 | 20 74 6f 3a 0a 20 20 20 |uivalent| to:. |
|00003f40| 20 4d 4f 56 45 20 78 31 | 2c 79 31 0a 20 20 20 20 | MOVE x1|,y1. |
|00003f50| 44 52 41 57 20 78 32 2c | 79 32 0a 0a 50 61 72 74 |DRAW x2,|y2..Part|
|00003f60| 20 6f 66 20 3c 49 4e 50 | 55 54 3e 20 4c 49 4e 45 | of <INP|UT> LINE|
|00003f70| 20 6f 72 20 4c 49 4e 45 | 20 49 4e 50 55 54 20 73 | or LINE| INPUT s|
|00003f80| 74 61 74 65 6d 65 6e 74 | 2e 00 00 00 44 41 54 41 |tatement|....DATA|
|00003f90| 58 01 00 00 4c 49 53 54 | 0a 54 68 69 73 20 63 6f |X...LIST|.This co|
|00003fa0| 6d 6d 61 6e 64 20 6c 69 | 73 74 73 20 74 68 65 20 |mmand li|sts the |
|00003fb0| 70 72 6f 67 72 61 6d 3a | 0a 4c 49 53 54 20 5b 73 |program:|.LIST [s|
|00003fc0| 74 61 72 74 20 6c 69 6e | 65 5d 5b 2c 5b 65 6e 64 |tart lin|e][,[end|
|00003fd0| 20 6c 69 6e 65 5d 5d 20 | 5b 49 46 70 61 74 74 65 | line]] |[IFpatte|
|00003fe0| 72 6e 5d 2e 0a 20 20 4c | 69 73 74 20 6c 69 6e 65 |rn].. L|ist line|
|00003ff0| 73 20 69 6e 20 74 68 65 | 20 67 69 76 65 6e 20 72 |s in the| given r|
|00004000| 61 6e 67 65 2e 0a 20 20 | 49 66 20 6e 6f 20 72 61 |ange.. |If no ra|
|00004010| 6e 67 65 2c 20 74 68 65 | 6e 20 6c 69 73 74 20 61 |nge, the|n list a|
|00004020| 6c 6c 20 6c 69 6e 65 73 | 2e 0a 20 20 49 66 20 6a |ll lines|.. If j|
|00004030| 75 73 74 20 73 74 61 72 | 74 20 6c 69 6e 65 3a 20 |ust star|t line: |
|00004040| 6c 69 73 74 20 74 68 69 | 73 20 6f 6e 65 20 6c 69 |list thi|s one li|
|00004050| 6e 65 0a 20 20 49 66 20 | 73 74 61 72 74 20 6c 69 |ne. If |start li|
|00004060| 6e 65 2c 3a 20 6c 69 73 | 74 20 61 6c 6c 20 6c 69 |ne,: lis|t all li|
|00004070| 6e 65 73 20 66 72 6f 6d | 20 74 68 69 73 20 6f 6e |nes from| this on|
|00004080| 65 2e 0a 20 20 49 66 20 | 5b 49 46 70 61 74 74 65 |e.. If |[IFpatte|
|00004090| 72 6e 5d 20 3a 20 6f 6e | 6c 79 20 6c 69 73 74 20 |rn] : on|ly list |
|000040a0| 6c 69 6e 65 73 20 63 6f | 6e 74 61 69 6e 69 6e 67 |lines co|ntaining|
|000040b0| 20 70 61 74 74 65 72 6e | 0a 0a 53 65 65 20 3c 4c | pattern|..See <L|
|000040c0| 49 53 54 4f 3e 20 66 6f | 72 20 68 6f 77 20 6c 69 |ISTO> fo|r how li|
|000040d0| 6e 65 73 20 77 69 6c 6c | 20 62 65 20 70 72 69 6e |nes will| be prin|
|000040e0| 74 65 64 2e 44 41 54 41 | b4 00 00 00 4c 49 53 54 |ted.DATA|....LIST|
|000040f0| 4f 20 6e 75 6d 62 65 72 | 2e 0a 42 69 74 73 20 6d |O number|..Bits m|
|00004100| 65 61 6e 3a 0a 20 30 3a | 20 73 70 61 63 65 20 62 |ean:. 0:| space b|
|00004110| 65 66 6f 72 65 20 6c 69 | 6e 65 0a 20 31 3a 20 69 |efore li|ne. 1: i|
|00004120| 6e 64 65 6e 74 20 73 74 | 72 75 63 74 75 72 65 0a |ndent st|ructure.|
|00004130| 20 32 3a 20 73 70 6c 69 | 74 20 6c 69 6e 65 73 20 | 2: spli|t lines |
|00004140| 61 74 20 3a 0a 20 33 3a | 20 64 6f 6e 27 74 20 6c |at :. 3:| don't l|
|00004150| 69 73 74 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 0a |ist line| number.|
|00004160| 20 34 3a 20 6c 69 73 74 | 20 74 6f 6b 65 6e 73 20 | 4: list| tokens |
|00004170| 69 6e 20 6c 6f 77 65 72 | 20 63 61 73 65 0a 0a 44 |in lower| case..D|
|00004180| 65 66 61 75 6c 74 20 6f | 70 74 69 6f 6e 73 20 61 |efault o|ptions a|
|00004190| 72 65 20 25 30 30 30 30 | 44 41 54 41 6a 00 00 00 |re %0000|DATAj...|
|000041a0| 4c 4e 20 78 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |LN x.Thi|s functi|
|000041b0| 6f 6e 20 67 69 76 65 73 | 20 74 68 65 20 6e 61 74 |on gives| the nat|
|000041c0| 75 72 61 6c 0a 6c 6f 67 | 61 72 69 74 68 6d 20 28 |ural.log|arithm (|
|000041d0| 62 61 73 65 20 65 29 20 | 6f 66 20 61 20 6e 75 6d |base e) |of a num|
|000041e0| 62 65 72 2e 0a 20 20 4c | 4e 28 65 5e 78 29 20 3d |ber.. L|N(e^x) =|
|000041f0| 20 78 2c 20 20 65 20 3d | 20 32 2e 37 31 38 2e 2e | x, e =| 2.718..|
|00004200| 2e 2e 00 00 44 41 54 41 | 45 00 00 00 4c 4f 41 44 |....DATA|E...LOAD|
|00004210| 0a 54 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 6c 6f |.This co|mmand lo|
|00004220| 61 64 73 20 61 20 6e 65 | 77 20 70 72 6f 67 72 61 |ads a ne|w progra|
|00004230| 6d 2c 0a 72 65 70 6c 61 | 63 69 6e 67 20 74 68 65 |m,.repla|cing the|
|00004240| 20 6f 6c 64 20 6f 6e 65 | 2e 00 00 00 44 41 54 41 | old one|....DATA|
|00004250| ff 00 00 00 4c 4f 43 41 | 4c 0a 4c 4f 43 41 4c 20 |....LOCA|L.LOCAL |
|00004260| 6c 69 73 74 20 6f 66 20 | 76 61 72 69 61 62 6c 65 |list of |variable|
|00004270| 73 0a 20 20 4d 61 6b 65 | 20 74 68 69 6e 67 73 20 |s. Make| things |
|00004280| 70 72 69 76 61 74 65 20 | 74 6f 20 66 75 6e 63 74 |private |to funct|
|00004290| 69 6f 6e 20 6f 72 20 70 | 72 6f 63 65 64 75 72 65 |ion or p|rocedure|
|000042a0| 2e 0a 0a 4c 4f 43 41 4c | 20 44 41 54 41 0a 20 20 |...LOCAL| DATA. |
|000042b0| 53 61 76 65 20 44 41 54 | 41 20 70 6f 69 6e 74 65 |Save DAT|A pointe|
|000042c0| 72 20 6f 6e 20 73 74 61 | 63 6b 2e 0a 20 20 4f 6e |r on sta|ck.. On|
|000042d0| 6c 79 20 61 20 4c 4f 43 | 41 4c 20 45 52 52 4f 52 |ly a LOC|AL ERROR|
|000042e0| 20 73 68 6f 75 6c 64 20 | 63 6f 6d 65 20 61 66 74 | should |come aft|
|000042f0| 65 72 20 74 68 69 73 2e | 0a 0a 4c 4f 43 41 4c 20 |er this.|..LOCAL |
|00004300| 45 52 52 4f 52 0a 20 20 | 53 61 76 65 20 65 72 72 |ERROR. |Save err|
|00004310| 6f 72 20 63 6f 6e 74 72 | 6f 6c 20 73 74 61 74 75 |or contr|ol statu|
|00004320| 73 20 6f 6e 20 73 74 61 | 63 6b 2e 0a 20 20 4d 75 |s on sta|ck.. Mu|
|00004330| 73 74 20 62 65 20 6c 61 | 73 74 20 4c 4f 43 41 4c |st be la|st LOCAL|
|00004340| 20 73 74 61 74 65 6d 65 | 6e 74 2e 00 44 41 54 41 | stateme|nt..DATA|
|00004350| 67 00 00 00 4c 4f 47 0a | 54 68 69 73 20 66 75 6e |g...LOG.|This fun|
|00004360| 63 74 69 6f 6e 20 67 69 | 76 65 73 20 74 68 65 20 |ction gi|ves the |
|00004370| 63 6f 6d 6d 6f 6e 0a 6c | 6f 67 61 72 69 74 68 6d |common.l|ogarithm|
|00004380| 20 28 62 61 73 65 20 31 | 30 29 20 6f 66 20 61 20 | (base 1|0) of a |
|00004390| 6e 75 6d 62 65 72 2e 0a | 20 20 20 20 20 20 4c 4f |number..| LO|
|000043a0| 47 78 20 3d 20 3c 4c 4e | 3e 28 78 29 2f 4c 4e 28 |Gx = <LN|>(x)/LN(|
|000043b0| 31 30 29 00 44 41 54 41 | 5b 00 00 00 4c 4f 4d 45 |10).DATA|[...LOME|
|000043c0| 4d 0a 54 68 69 73 20 70 | 73 75 65 64 6f 2d 76 61 |M.This p|suedo-va|
|000043d0| 72 69 61 62 6c 65 20 72 | 65 61 64 73 20 6f 72 20 |riable r|eads or |
|000043e0| 73 65 74 73 20 74 68 65 | 0a 61 64 64 72 65 73 73 |sets the|.address|
|000043f0| 20 6f 66 20 74 68 65 20 | 73 74 61 72 74 20 6f 66 | of the |start of|
|00004400| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 73 2e 00 | the var|iables..|
|00004410| 44 41 54 41 35 00 00 00 | 4c 56 41 52 0a 54 68 69 |DATA5...|LVAR.Thi|
|00004420| 73 20 63 6f 6d 6d 61 6e | 64 20 6c 69 73 74 73 20 |s comman|d lists |
|00004430| 61 6c 6c 0a 76 61 72 69 | 61 62 6c 65 73 20 69 6e |all.vari|ables in|
|00004440| 20 75 73 65 2e 00 00 00 | 44 41 54 41 20 01 00 00 | use....|DATA ...|
|00004450| 4d 49 44 24 0a 4d 49 44 | 24 28 73 74 72 69 6e 67 |MID$.MID|$(string|
|00004460| 2c 70 6f 73 69 74 69 6f | 6e 29 0a 20 20 47 69 76 |,positio|n). Giv|
|00004470| 65 73 20 61 6c 6c 20 6f | 66 20 73 74 72 69 6e 67 |es all o|f string|
|00004480| 20 73 74 61 72 74 69 6e | 67 20 66 72 6f 6d 20 70 | startin|g from p|
|00004490| 6f 73 69 74 69 6f 6e 2e | 0a 0a 4d 49 44 24 28 73 |osition.|..MID$(s|
|000044a0| 74 72 69 6e 67 2c 70 6f | 73 69 74 69 6f 6e 2c 63 |tring,po|sition,c|
|000044b0| 6f 75 6e 74 29 0a 20 20 | 47 69 76 65 73 20 73 6f |ount). |Gives so|
|000044c0| 6d 65 20 6f 66 20 73 74 | 72 69 6e 67 20 66 72 6f |me of st|ring fro|
|000044d0| 6d 20 70 6f 73 69 74 69 | 6f 6e 2e 0a 0a 4d 49 44 |m positi|on...MID|
|000044e0| 24 28 73 74 72 69 6e 67 | 20 76 61 72 69 61 62 6c |$(string| variabl|
|000044f0| 65 2c 70 6f 73 69 74 69 | 6f 6e 5b 2c 63 6f 75 6e |e,positi|on[,coun|
|00004500| 74 5d 29 20 3d 20 73 74 | 72 69 6e 67 32 0a 20 20 |t]) = st|ring2. |
|00004510| 4f 76 65 72 77 72 69 74 | 65 20 61 6c 6c 20 5b 6f |Overwrit|e all [o|
|00004520| 72 20 63 6f 75 6e 74 5d | 20 63 68 61 72 61 63 74 |r count]| charact|
|00004530| 65 72 73 20 69 6e 20 0a | 20 20 73 74 72 69 6e 67 |ers in .| string|
|00004540| 20 76 61 72 69 61 62 6c | 65 2c 20 77 69 74 68 20 | variabl|e, with |
|00004550| 63 68 61 72 61 63 74 65 | 72 73 20 66 72 6f 6d 20 |characte|rs from |
|00004560| 73 74 72 69 6e 67 32 2e | 44 41 54 41 d6 00 00 00 |string2.|DATA....|
|00004570| 4d 4f 44 0a 61 20 4d 4f | 44 20 62 0a 20 20 52 65 |MOD.a MO|D b. Re|
|00004580| 6d 61 69 6e 64 65 72 20 | 61 66 74 65 72 20 69 6e |mainder |after in|
|00004590| 74 65 67 65 72 20 64 69 | 76 69 73 69 6f 6e 0a 20 |teger di|vision. |
|000045a0| 20 62 65 74 77 65 65 6e | 20 74 77 6f 20 69 6e 74 | between| two int|
|000045b0| 65 67 65 72 73 2e 20 50 | 72 69 6f 72 69 74 79 20 |egers. P|riority |
|000045c0| 33 2e 0a 0a 4d 4f 44 20 | 61 72 72 61 79 28 29 0a |3...MOD |array().|
|000045d0| 20 20 54 68 65 20 4d 4f | 44 20 66 75 6e 63 74 69 | The MO|D functi|
|000045e0| 6f 6e 20 67 69 76 65 73 | 20 74 68 65 20 73 71 75 |on gives| the squ|
|000045f0| 61 72 65 20 72 6f 6f 74 | 0a 20 20 6f 66 20 74 68 |are root|. of th|
|00004600| 65 20 73 75 6d 20 6f 66 | 20 74 68 65 20 73 71 75 |e sum of| the squ|
|00004610| 61 72 65 73 0a 20 20 6f | 66 20 61 6c 6c 20 74 68 |ares. o|f all th|
|00004620| 65 20 65 6c 65 6d 65 6e | 74 73 20 69 6e 20 61 20 |e elemen|ts in a |
|00004630| 6e 75 6d 65 72 69 63 20 | 61 72 72 61 79 2e 00 00 |numeric |array...|
|00004640| 44 41 54 41 52 00 00 00 | 4d 4f 44 45 0a 4d 4f 44 |DATAR...|MODE.MOD|
|00004650| 45 20 6e 72 0a 20 20 53 | 65 74 20 73 63 72 65 65 |E nr. S|et scree|
|00004660| 6e 20 6d 6f 64 65 2e 0a | 6e 72 20 3d 20 4d 4f 44 |n mode..|nr = MOD|
|00004670| 45 0a 20 20 47 69 76 65 | 73 20 74 68 65 20 63 75 |E. Give|s the cu|
|00004680| 72 72 65 6e 74 20 73 63 | 72 65 65 6e 20 6d 6f 64 |rrent sc|reen mod|
|00004690| 65 2e 00 00 44 41 54 41 | d3 01 00 00 4d 4f 55 53 |e...DATA|....MOUS|
|000046a0| 45 0a 4d 4f 55 53 45 20 | 78 2c 79 2c 7a 5b 2c 74 |E.MOUSE |x,y,z[,t|
|000046b0| 5d 0a 20 20 53 65 74 73 | 20 78 2c 79 20 74 6f 20 |]. Sets| x,y to |
|000046c0| 6d 6f 75 73 65 20 70 6f | 73 69 74 69 6f 6e 3b 0a |mouse po|sition;.|
|000046d0| 20 20 7a 20 74 6f 20 62 | 75 74 74 6f 6e 20 73 74 | z to b|utton st|
|000046e0| 61 74 65 20 5b 74 20 74 | 6f 20 74 69 6d 65 5d 2e |ate [t t|o time].|
|000046f0| 0a 0a 4d 4f 55 53 45 20 | 43 4f 4c 4f 55 52 20 61 |..MOUSE |COLOUR a|
|00004700| 2c 72 2c 67 2c 62 0a 20 | 20 53 65 74 20 6d 6f 75 |,r,g,b. | Set mou|
|00004710| 73 65 20 70 61 6c 65 74 | 74 65 20 65 6e 74 72 79 |se palet|te entry|
|00004720| 20 66 6f 72 20 61 20 0a | 20 20 74 6f 20 72 2c 20 | for a .| to r, |
|00004730| 67 2c 20 62 20 70 68 79 | 73 69 63 61 6c 20 63 6f |g, b phy|sical co|
|00004740| 6c 6f 75 72 2e 0a 20 20 | 0a 4d 4f 55 53 45 20 4f |lour.. |.MOUSE O|
|00004750| 46 46 0a 20 20 54 75 72 | 6e 20 6d 6f 75 73 65 20 |FF. Tur|n mouse |
|00004760| 70 6f 69 6e 74 65 72 20 | 6f 66 66 2e 0a 20 20 0a |pointer |off.. .|
|00004770| 4d 4f 55 53 45 20 4f 4e | 20 5b 61 5d 0a 20 20 53 |MOUSE ON| [a]. S|
|00004780| 65 74 73 20 6d 6f 75 73 | 65 20 70 6f 69 6e 74 65 |ets mous|e pointe|
|00004790| 72 20 31 20 5b 6f 72 20 | 61 5d 2e 0a 20 20 0a 4d |r 1 [or |a].. .M|
|000047a0| 4f 55 53 45 20 52 45 43 | 54 41 4e 47 4c 45 20 78 |OUSE REC|TANGLE x|
|000047b0| 2c 79 2c 77 69 64 74 68 | 2c 68 65 69 67 68 74 0a |,y,width|,height.|
|000047c0| 20 20 43 6f 6e 73 74 72 | 61 69 6e 20 6d 6f 75 73 | Constr|ain mous|
|000047d0| 65 20 6d 6f 76 65 6d 65 | 6e 74 20 74 6f 20 69 6e |e moveme|nt to in|
|000047e0| 73 69 64 65 20 72 65 63 | 74 61 6e 67 6c 65 2e 0a |side rec|tangle..|
|000047f0| 20 20 0a 4d 4f 55 53 45 | 20 53 54 45 50 20 61 5b | .MOUSE| STEP a[|
|00004800| 2c 62 5d 0a 20 20 53 65 | 74 73 20 6d 6f 75 73 65 |,b]. Se|ts mouse|
|00004810| 20 73 74 65 70 20 6d 75 | 6c 74 69 70 6c 69 65 72 | step mu|ltiplier|
|00004820| 20 74 6f 20 61 2c 61 20 | 5b 6f 72 20 61 2c 62 5d | to a,a |[or a,b]|
|00004830| 2e 0a 20 20 0a 4d 4f 55 | 53 45 20 54 4f 20 78 2c |.. .MOU|SE TO x,|
|00004840| 79 0a 20 20 50 6f 73 69 | 74 69 6f 6e 73 20 6d 6f |y. Posi|tions mo|
|00004850| 75 73 65 20 61 6e 64 20 | 70 6f 69 6e 74 65 72 20 |use and |pointer |
|00004860| 61 74 20 78 2c 79 2e 00 | 44 41 54 41 40 00 00 00 |at x,y..|DATA@...|
|00004870| 4d 4f 56 45 0a 4d 4f 56 | 45 20 5b 42 59 5d 20 78 |MOVE.MOV|E [BY] x|
|00004880| 2c 79 0a 20 20 47 72 61 | 70 68 69 63 73 20 6d 6f |,y. Gra|phics mo|
|00004890| 76 65 20 74 6f 20 5b 72 | 65 6c 61 74 69 76 65 20 |ve to [r|elative |
|000048a0| 62 79 5d 20 78 2c 79 2e | 44 49 52 24 80 04 00 00 |by] x,y.|DIR$....|
|000048b0| 80 04 00 00 28 4d 00 00 | 45 ff ff ff df a0 e8 df |....(M..|E.......|
|000048c0| 34 00 00 00 13 00 00 00 | 00 00 00 00 4e 45 57 00 |4.......|....NEW.|
|000048d0| 5c 4d 00 00 45 ff ff ff | e2 a0 e8 df 58 00 00 00 |\M..E...|....X...|
|000048e0| 13 00 00 00 00 00 00 00 | 4e 45 58 54 00 00 00 00 |........|NEXT....|
|000048f0| b4 4d 00 00 45 ff ff ff | e5 a0 e8 df af 00 00 00 |.M..E...|........|
|00004900| 13 00 00 00 00 00 00 00 | 4e 4f 54 00 64 4e 00 00 |........|NOT.dN..|
|00004910| 45 ff ff ff e9 a0 e8 df | 28 00 00 00 13 00 00 00 |E.......|(.......|
|00004920| 00 00 00 00 4f 46 00 00 | 8c 4e 00 00 45 ff ff ff |....OF..|.N..E...|
|00004930| ea a0 e8 df 54 00 00 00 | 13 00 00 00 00 00 00 00 |....T...|........|
|00004940| 4f 46 46 00 e0 4e 00 00 | 45 ff ff ff ec a0 e8 df |OFF..N..|E.......|
|00004950| 41 00 00 00 13 00 00 00 | 00 00 00 00 4f 4c 44 00 |A.......|....OLD.|
|00004960| 24 4f 00 00 46 ff ff ff | fa a2 bd 0e f8 00 00 00 |$O..F...|........|
|00004970| 13 00 00 00 00 00 00 00 | 4f 4e 00 00 1c 50 00 00 |........|ON...P..|
|00004980| 45 ff ff ff f3 a0 e8 df | 3f 00 00 00 13 00 00 00 |E.......|?.......|
|00004990| 00 00 00 00 4f 50 45 4e | 49 4e 00 00 5c 50 00 00 |....OPEN|IN..\P..|
|000049a0| 45 ff ff ff ff a0 e8 df | 41 00 00 00 13 00 00 00 |E.......|A.......|
|000049b0| 00 00 00 00 4f 50 45 4e | 4f 55 54 00 a0 50 00 00 |....OPEN|OUT..P..|
|000049c0| 45 ff ff ff 03 a1 e8 df | 4b 00 00 00 13 00 00 00 |E.......|K.......|
|000049d0| 00 00 00 00 4f 50 45 4e | 55 50 00 00 ec 50 00 00 |....OPEN|UP...P..|
|000049e0| 45 ff ff ff 05 a1 e8 df | 0d 01 00 00 13 00 00 00 |E.......|........|
|000049f0| 00 00 00 00 4f 50 54 00 | fc 51 00 00 45 ff ff ff |....OPT.|.Q..E...|
|00004a00| 07 a1 e8 df 3f 00 00 00 | 13 00 00 00 00 00 00 00 |....?...|........|
|00004a10| 4f 52 00 00 3c 52 00 00 | 45 ff ff ff 08 a1 e8 df |OR..<R..|E.......|
|00004a20| 3a 00 00 00 13 00 00 00 | 00 00 00 00 4f 52 49 47 |:.......|....ORIG|
|00004a30| 49 4e 00 00 78 52 00 00 | 45 ff ff ff 0a a1 e8 df |IN..xR..|E.......|
|00004a40| 52 00 00 00 13 00 00 00 | 00 00 00 00 4f 53 43 4c |R.......|....OSCL|
|00004a50| 49 00 00 00 cc 52 00 00 | 45 ff ff ff 0d a1 e8 df |I....R..|E.......|
|00004a60| 2c 00 00 00 13 00 00 00 | 00 00 00 00 4f 54 48 45 |,.......|....OTHE|
|00004a70| 52 57 49 53 45 00 00 00 | f8 52 00 00 45 ff ff ff |RWISE...|.R..E...|
|00004a80| 11 a1 e8 df 8d 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00004a90| 4f 56 45 52 4c 41 59 00 | 88 53 00 00 45 ff ff ff |OVERLAY.|.S..E...|
|00004aa0| 1b a1 e8 df 58 00 00 00 | 13 00 00 00 00 00 00 00 |....X...|........|
|00004ab0| 50 41 47 45 00 00 00 00 | e0 53 00 00 45 ff ff ff |PAGE....|.S..E...|
|00004ac0| 1c a1 e8 df 40 00 00 00 | 13 00 00 00 00 00 00 00 |....@...|........|
|00004ad0| 50 49 00 00 20 54 00 00 | 46 ff ff ff c8 03 90 15 |PI.. T..|F.......|
|00004ae0| 38 00 00 00 13 00 00 00 | 00 00 00 00 50 4c 4f 54 |8.......|....PLOT|
|00004af0| 00 00 00 00 58 54 00 00 | 45 ff ff ff 23 a1 e8 df |....XT..|E...#...|
|00004b00| d5 00 00 00 13 00 00 00 | 00 00 00 00 50 4f 49 4e |........|....POIN|
|00004b10| 54 00 00 00 30 55 00 00 | 45 ff ff ff 27 a1 e8 df |T...0U..|E...'...|
|00004b20| 45 00 00 00 13 00 00 00 | 00 00 00 00 50 4f 53 00 |E.......|....POS.|
|00004b30| 78 55 00 00 45 ff ff ff | 28 a1 e8 df aa 00 00 00 |xU..E...|(.......|
|00004b40| 13 00 00 00 00 00 00 00 | 50 52 49 4e 54 00 00 00 |........|PRINT...|
|00004b50| 24 56 00 00 45 ff ff ff | 2a a1 e8 df 57 00 00 00 |$V..E...|*...W...|
|00004b60| 13 00 00 00 00 00 00 00 | 50 52 4f 43 00 00 00 00 |........|PROC....|
|00004b70| 7c 56 00 00 45 ff ff ff | 2c a1 e8 df 75 00 00 00 ||V..E...|,...u...|
|00004b80| 13 00 00 00 00 00 00 00 | 50 54 52 00 f4 56 00 00 |........|PTR..V..|
|00004b90| 45 ff ff ff 31 a1 e8 df | 6b 00 00 00 13 00 00 00 |E...1...|k.......|
|00004ba0| 00 00 00 00 51 55 49 54 | 00 00 00 00 60 57 00 00 |....QUIT|....`W..|
|00004bb0| 45 ff ff ff 3d a1 e8 df | 7d 00 00 00 13 00 00 00 |E...=...|}.......|
|00004bc0| 00 00 00 00 52 41 44 00 | e0 57 00 00 45 ff ff ff |....RAD.|.W..E...|
|00004bd0| 3e a1 e8 df 58 00 00 00 | 13 00 00 00 00 00 00 00 |>...X...|........|
|00004be0| 52 45 41 44 00 00 00 00 | 38 58 00 00 45 ff ff ff |READ....|8X..E...|
|00004bf0| 41 a1 e8 df 92 00 00 00 | 13 00 00 00 00 00 00 00 |A.......|........|
|00004c00| 52 45 43 54 41 4e 47 4c | 45 00 00 00 cc 58 00 00 |RECTANGL|E....X..|
|00004c10| 45 ff ff ff 43 a1 e8 df | 9c 00 00 00 13 00 00 00 |E...C...|........|
|00004c20| 00 00 00 00 52 45 4d 00 | 68 59 00 00 46 ff ff ff |....REM.|hY..F...|
|00004c30| d5 be 2b 0b 78 00 00 00 | 13 00 00 00 00 00 00 00 |..+.x...|........|
|00004c40| 52 45 4e 55 4d 42 45 52 | 00 00 00 00 e0 59 00 00 |RENUMBER|.....Y..|
|00004c50| 45 ff ff ff 49 a1 e8 df | 30 00 00 00 13 00 00 00 |E...I...|0.......|
|00004c60| 00 00 00 00 52 45 50 45 | 41 54 00 00 10 5a 00 00 |....REPE|AT...Z..|
|00004c70| 45 ff ff ff 4b a1 e8 df | 5a 00 00 00 13 00 00 00 |E...K...|Z.......|
|00004c80| 00 00 00 00 52 45 50 4f | 52 54 00 00 6c 5a 00 00 |....REPO|RT..lZ..|
|00004c90| 46 ff ff ff 5f 04 2c 0b | 3b 01 00 00 13 00 00 00 |F..._.,.|;.......|
|00004ca0| 00 00 00 00 52 45 53 54 | 4f 52 45 00 a8 5b 00 00 |....REST|ORE..[..|
|00004cb0| 45 ff ff ff 6b a1 e8 df | 2b 00 00 00 13 00 00 00 |E...k...|+.......|
|00004cc0| 00 00 00 00 52 45 54 55 | 52 4e 00 00 d4 5b 00 00 |....RETU|RN...[..|
|00004cd0| 45 ff ff ff 70 a1 e8 df | 17 01 00 00 13 00 00 00 |E...p...|........|
|00004ce0| 00 00 00 00 52 49 47 48 | 54 21 78 32 34 00 00 00 |....RIGH|T!x24...|
|00004cf0| ec 5c 00 00 45 ff ff ff | 75 a1 e8 df f3 00 00 00 |.\..E...|u.......|
|00004d00| 13 00 00 00 00 00 00 00 | 52 4e 44 00 e0 5d 00 00 |........|RND..]..|
|00004d10| 45 ff ff ff 79 a1 e8 df | 4a 00 00 00 13 00 00 00 |E...y...|J.......|
|00004d20| 00 00 00 00 52 55 4e 00 | 44 41 54 41 34 00 00 00 |....RUN.|DATA4...|
|00004d30| 4e 45 57 0a 54 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |NEW.This| command|
|00004d40| 20 65 72 61 73 65 73 0a | 74 68 65 20 63 75 72 72 | erases.|the curr|
|00004d50| 65 6e 74 20 70 72 6f 67 | 72 61 6d 2e 44 41 54 41 |ent prog|ram.DATA|
|00004d60| 58 00 00 00 4e 45 58 54 | 0a 4e 45 58 54 20 5b 76 |X...NEXT|.NEXT [v|
|00004d70| 61 72 69 61 62 6c 65 5b | 2c 76 61 72 69 61 62 6c |ariable[|,variabl|
|00004d80| 65 5d 5e 5d 0a 20 20 43 | 6c 6f 73 65 73 20 6f 6e |e]^]. C|loses on|
|00004d90| 65 20 6f 72 20 73 65 76 | 65 72 61 6c 20 3c 46 4f |e or sev|eral <FO|
|00004da0| 52 3e 2e 2e 4e 45 58 54 | 20 73 74 72 75 63 74 75 |R>..NEXT| structu|
|00004db0| 72 65 73 2e 44 41 54 41 | af 00 00 00 4e 4f 54 20 |res.DATA|....NOT |
|00004dc0| 78 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |x.This f|unction |
|00004dd0| 67 69 76 65 73 20 74 68 | 65 20 6e 75 6d 62 65 72 |gives th|e number|
|00004de0| 0a 77 69 74 68 20 61 6c | 6c 20 62 69 74 73 20 69 |.with al|l bits i|
|00004df0| 6e 76 65 72 74 65 64 20 | 28 30 20 61 6e 64 20 31 |nverted |(0 and 1|
|00004e00| 20 65 78 63 68 61 6e 67 | 65 64 29 2e 0a 20 4e 4f | exchang|ed).. NO|
|00004e10| 54 20 20 25 30 30 30 30 | 30 30 30 30 30 30 30 30 |T %0000|00000000|
|00004e20| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00004e30| 30 30 31 20 28 31 29 0a | 20 20 20 20 3d 20 25 31 |001 (1).| = %1|
|00004e40| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00004e50| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 30 20 28 |11111111|111110 (|
|00004e60| 2d 32 29 00 44 41 54 41 | 28 00 00 00 4f 46 0a 50 |-2).DATA|(...OF.P|
|00004e70| 61 72 74 20 6f 66 20 74 | 68 65 20 3c 43 41 53 45 |art of t|he <CASE|
|00004e80| 3e 20 73 74 61 74 65 6d | 65 6e 74 2e 44 41 54 41 |> statem|ent.DATA|
|00004e90| 54 00 00 00 4f 46 46 0a | 4f 46 46 0a 20 20 54 75 |T...OFF.|OFF. Tu|
|00004ea0| 72 6e 20 63 75 72 73 6f | 72 20 6f 66 66 2e 0a 0a |rn curso|r off...|
|00004eb0| 50 61 72 74 20 6f 66 20 | 3c 54 52 41 43 45 3e 20 |Part of |<TRACE> |
|00004ec0| 4f 46 46 2c 20 0a 4f 4e | 20 3c 45 52 52 4f 52 3e |OFF, .ON| <ERROR>|
|00004ed0| 20 4f 46 46 20 73 74 61 | 74 65 6d 65 6e 74 73 2e | OFF sta|tements.|
|00004ee0| 44 41 54 41 41 00 00 00 | 4f 4c 44 0a 54 68 69 73 |DATAA...|OLD.This|
|00004ef0| 20 63 6f 6d 6d 61 6e 64 | 20 72 65 63 6f 76 65 72 | command| recover|
|00004f00| 73 20 74 68 65 0a 70 72 | 6f 67 72 61 6d 20 6a 75 |s the.pr|ogram ju|
|00004f10| 73 74 20 61 66 74 65 72 | 20 61 20 3c 4e 45 57 3e |st after| a <NEW>|
|00004f20| 2e 00 00 00 44 41 54 41 | f8 00 00 00 4f 4e 0a 4f |....DATA|....ON.O|
|00004f30| 4e 0a 20 20 43 75 72 73 | 6f 72 20 6f 6e 2e 0a 0a |N. Curs|or on...|
|00004f40| 4f 4e 20 45 52 52 4f 52 | 20 5b 4c 4f 43 41 4c 7c |ON ERROR| [LOCAL||
|00004f50| 4f 46 46 5d 0a 20 20 44 | 65 66 69 6e 65 20 65 72 |OFF]. D|efine er|
|00004f60| 72 6f 72 20 68 61 6e 64 | 6c 65 72 2e 0a 0a 4f 4e |ror hand|ler...ON|
|00004f70| a0 65 78 70 72 65 73 73 | 69 6f 6e a0 47 4f 54 4f |.express|ion.GOTO|
|00004f80| 7c 47 4f 53 55 42 7c 50 | 52 4f 43 a0 5c 7b 2c 47 ||GOSUB|P|ROC.\{,G|
|00004f90| 4f 54 4f 7c 47 4f 53 55 | 42 7c 50 52 4f 43 7d a0 |OTO|GOSU|B|PROC}.|
|00004fa0| 45 4c 53 45 0a 20 09 43 | 61 6c 6c 20 66 72 6f 6d |ELSE. .C|all from|
|00004fb0| 20 73 70 65 63 69 66 69 | 65 64 20 6c 69 73 74 20 | specifi|ed list |
|00004fc0| 69 74 65 6d 2e 0a 20 09 | 44 6f 6e 27 74 20 75 73 |item.. .|Don't us|
|00004fd0| 65 20 47 4f 54 4f 20 6f | 72 20 47 4f 53 55 42 21 |e GOTO o|r GOSUB!|
|00004fe0| 20 50 6c 65 61 73 65 21 | 20 55 73 65 20 6f 66 20 | Please!| Use of |
|00004ff0| 6c 69 6e 65 20 6e 75 6d | 62 65 72 73 20 73 68 6f |line num|bers sho|
|00005000| 75 6c 64 20 62 65 20 61 | 76 6f 69 64 65 64 20 61 |uld be a|voided a|
|00005010| 74 20 61 6c 6c 20 63 6f | 73 74 73 2e 44 41 54 41 |t all co|sts.DATA|
|00005020| 3f 00 00 00 78 20 3d 20 | 4f 50 45 4e 49 4e 20 66 |?...x = |OPENIN f|
|00005030| 69 6c 65 6e 61 6d 65 0a | 54 68 65 20 66 75 6e 63 |ilename.|The func|
|00005040| 74 69 6f 6e 20 6f 70 65 | 6e 73 20 61 20 66 69 6c |tion ope|ns a fil|
|00005050| 65 0a 66 6f 72 20 69 6e | 70 75 74 00 44 41 54 41 |e.for in|put.DATA|
|00005060| 41 00 00 00 78 20 3d 20 | 4f 50 45 4e 4f 55 54 20 |A...x = |OPENOUT |
|00005070| 66 69 6c 65 6e 61 6d 65 | 0a 54 68 65 20 66 75 6e |filename|.The fun|
|00005080| 63 74 69 6f 6e 20 6f 70 | 65 6e 73 20 61 20 66 69 |ction op|ens a fi|
|00005090| 6c 65 0a 66 6f 72 20 6f | 75 74 70 75 74 00 00 00 |le.for o|utput...|
|000050a0| 44 41 54 41 4b 00 00 00 | 78 20 3d 20 4f 50 45 4e |DATAK...|x = OPEN|
|000050b0| 55 50 20 66 69 6c 65 6e | 61 6d 65 0a 54 68 65 20 |UP filen|ame.The |
|000050c0| 66 75 6e 63 74 69 6f 6e | 20 6f 70 65 6e 73 20 61 |function| opens a|
|000050d0| 20 66 69 6c 65 0a 66 6f | 72 20 69 6e 70 75 74 20 | file.fo|r input |
|000050e0| 61 6e 64 20 6f 75 74 70 | 75 74 2e 00 44 41 54 41 |and outp|ut..DATA|
|000050f0| 0d 01 00 00 4f 50 54 0a | 53 65 74 20 42 41 53 49 |....OPT.|Set BASI|
|00005100| 43 20 61 73 73 65 6d 62 | 6c 65 72 20 6f 70 74 69 |C assemb|ler opti|
|00005110| 6f 6e 73 0a 42 69 74 3a | 20 20 4d 65 61 6e 69 6e |ons.Bit:| Meanin|
|00005120| 67 20 77 68 65 6e 20 73 | 65 74 3a 0a 2d 2d 2d 2d |g when s|et:.----|
|00005130| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ------|--------|
|00005140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005150| 2d 2d 2d 2d 2d 0a 20 20 | 30 20 20 20 41 73 73 65 |-----. |0 Asse|
|00005160| 6d 62 6c 79 20 6c 69 73 | 74 69 6e 67 20 65 6e 61 |mbly lis|ting ena|
|00005170| 62 6c 65 64 0a 20 20 31 | 20 20 20 41 73 73 65 6d |bled. 1| Assem|
|00005180| 62 6c 65 72 20 65 72 72 | 6f 72 73 20 65 6e 61 62 |bler err|ors enab|
|00005190| 6c 65 64 0a 20 20 32 20 | 20 20 41 73 73 65 6d 62 |led. 2 | Assemb|
|000051a0| 6c 65 64 20 63 6f 64 65 | 20 70 6c 61 63 65 64 20 |led code| placed |
|000051b0| 61 74 20 4f 25 20 69 6e | 73 74 65 61 64 20 6f 66 |at O% in|stead of|
|000051c0| 20 50 25 0a 20 20 33 20 | 20 20 43 68 65 63 6b 20 | P%. 3 | Check |
|000051d0| 69 66 20 61 73 73 65 6d | 62 6c 65 64 20 63 6f 64 |if assem|bled cod|
|000051e0| 65 20 65 78 63 65 65 64 | 73 20 6d 65 6d 6f 72 79 |e exceed|s memory|
|000051f0| 20 6c 69 6d 69 74 20 4c | 25 00 00 00 44 41 54 41 | limit L|%...DATA|
|00005200| 3f 00 00 00 4f 52 0a 42 | 69 74 77 69 73 65 20 6c |?...OR.B|itwise l|
|00005210| 6f 67 69 63 61 6c 20 6f | 72 20 62 65 74 77 65 65 |ogical o|r betwee|
|00005220| 6e 0a 74 77 6f 20 69 6e | 74 65 67 65 72 73 2e 20 |n.two in|tegers. |
|00005230| 50 72 69 6f 72 69 74 79 | 20 37 2e 00 44 41 54 41 |Priority| 7..DATA|
|00005240| 3a 00 00 00 4f 52 49 47 | 49 4e 20 78 2c 79 0a 53 |:...ORIG|IN x,y.S|
|00005250| 65 74 73 20 78 2c 79 20 | 61 73 20 74 68 65 20 6e |ets x,y |as the n|
|00005260| 65 77 0a 67 72 61 70 68 | 69 63 73 20 30 2c 30 20 |ew.graph|ics 0,0 |
|00005270| 70 6f 69 6e 74 2e 00 00 | 44 41 54 41 52 00 00 00 |point...|DATAR...|
|00005280| 4f 53 43 4c 49 20 73 74 | 72 69 6e 67 20 20 20 20 |OSCLI st|ring |
|00005290| 0a 47 69 76 65 20 73 74 | 72 69 6e 67 20 74 6f 20 |.Give st|ring to |
|000052a0| 4f 70 65 72 61 74 69 6e | 67 0a 53 79 73 74 65 6d |Operatin|g.System|
|000052b0| 20 43 6f 6d 6d 61 6e 64 | 20 4c 69 6e 65 20 49 6e | Command| Line In|
|000052c0| 74 65 72 70 72 65 74 65 | 72 2e 00 00 44 41 54 41 |terprete|r...DATA|
|000052d0| 2c 00 00 00 4f 54 48 45 | 52 57 49 53 45 20 0a 50 |,...OTHE|RWISE .P|
|000052e0| 61 72 74 20 6f 66 20 3c | 43 41 53 45 3e 20 73 74 |art of <|CASE> st|
|000052f0| 72 75 63 74 75 72 65 2e | 44 41 54 41 8d 00 00 00 |ructure.|DATA....|
|00005300| 4f 56 45 52 4c 41 59 20 | 61 72 72 61 79 24 28 29 |OVERLAY |array$()|
|00005310| 0a 53 65 74 20 61 6e 20 | 61 72 72 61 79 20 6f 66 |.Set an |array of|
|00005320| 20 66 69 6c 65 6e 61 6d | 65 73 0a 66 6f 72 20 6f | filenam|es.for o|
|00005330| 76 65 72 6c 61 79 20 6c | 69 62 72 61 72 69 65 73 |verlay l|ibraries|
|00005340| 2e 0a 28 4f 6e 6c 79 20 | 6f 6e 65 20 6f 66 20 74 |..(Only |one of t|
|00005350| 68 65 20 67 69 76 65 6e | 20 6c 69 62 72 61 72 69 |he given| librari|
|00005360| 65 73 0a 20 77 69 6c 6c | 20 62 65 20 6c 6f 61 64 |es. will| be load|
|00005370| 65 64 20 61 74 20 61 6e | 79 20 67 69 76 65 6e 20 |ed at an|y given |
|00005380| 74 69 6d 65 29 00 00 00 | 44 41 54 41 58 00 00 00 |time)...|DATAX...|
|00005390| 50 41 47 45 0a 54 68 69 | 73 20 70 73 75 65 64 6f |PAGE.Thi|s psuedo|
|000053a0| 2d 76 61 72 69 61 62 6c | 65 20 72 65 61 64 73 20 |-variabl|e reads |
|000053b0| 6f 72 20 73 65 74 73 0a | 74 68 65 20 61 64 64 72 |or sets.|the addr|
|000053c0| 65 73 73 20 6f 66 20 74 | 68 65 20 73 74 61 72 74 |ess of t|he start|
|000053d0| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 2e | of the |program.|
|000053e0| 44 41 54 41 40 00 00 00 | 50 49 0a 54 68 69 73 20 |DATA@...|PI.This |
|000053f0| 66 75 6e 63 74 69 6f 6e | 20 67 69 76 65 73 20 74 |function| gives t|
|00005400| 68 65 20 76 61 6c 75 65 | 0a 6f 66 20 27 70 69 27 |he value|.of 'pi'|
|00005410| 20 28 33 2e 31 34 31 35 | 39 32 36 35 33 35 29 2e | (3.1415|926535).|
|00005420| 44 41 54 41 38 00 00 00 | 50 4c 4f 54 20 6e 2c 78 |DATA8...|PLOT n,x|
|00005430| 2c 79 0a 47 72 61 70 68 | 69 63 73 20 6f 70 65 72 |,y.Graph|ics oper|
|00005440| 61 74 69 6f 6e 20 3c 6e | 3d 3e 53 57 49 3a 6f 73 |ation <n|=>SWI:os|
|00005450| 5f 70 6c 6f 74 30 3e 2e | 44 41 54 41 d5 00 00 00 |_plot0>.|DATA....|
|00005460| 50 4f 49 4e 54 0a 78 20 | 3d 20 50 4f 49 4e 54 28 |POINT.x |= POINT(|
|00005470| 78 2c 79 29 0a 20 20 47 | 69 76 65 73 20 74 68 65 |x,y). G|ives the|
|00005480| 20 6c 6f 67 69 63 61 6c | 20 63 6f 6c 6f 75 72 0a | logical| colour.|
|00005490| 20 20 6f 66 20 61 20 67 | 72 61 70 68 69 63 73 20 | of a g|raphics |
|000054a0| 70 6f 69 6e 74 2e 0a 20 | 20 53 65 65 20 61 6c 73 |point.. | See als|
|000054b0| 6f 20 3c 54 49 4e 54 3e | 0a 0a 50 4f 49 4e 54 20 |o <TINT>|..POINT |
|000054c0| 5b 42 59 5d 20 78 2c 79 | 0a 20 20 53 65 74 20 70 |[BY] x,y|. Set p|
|000054d0| 69 78 65 6c 20 61 74 20 | 5b 72 65 6c 61 74 69 76 |ixel at |[relativ|
|000054e0| 65 20 74 6f 5d 20 78 2c | 79 2e 0a 0a 50 4f 49 4e |e to] x,|y...POIN|
|000054f0| 54 20 54 4f 20 78 2c 79 | 0a 20 20 50 6f 73 69 74 |T TO x,y|. Posit|
|00005500| 69 6f 6e 20 70 6f 69 6e | 74 65 72 20 61 74 20 78 |ion poin|ter at x|
|00005510| 2c 79 2c 0a 20 20 69 66 | 20 6e 6f 74 20 6c 69 6e |,y,. if| not lin|
|00005520| 6b 65 64 20 74 6f 20 6d | 6f 75 73 65 2e 00 00 00 |ked to m|ouse....|
|00005530| 44 41 54 41 45 00 00 00 | 50 4f 53 0a 54 68 69 73 |DATAE...|POS.This|
|00005540| 20 66 75 6e 63 74 69 6f | 6e 20 67 69 76 65 73 0a | functio|n gives.|
|00005550| 74 68 65 20 78 2d 63 6f | 6f 72 64 69 6e 61 74 65 |the x-co|ordinate|
|00005560| 20 0a 6f 66 20 74 68 65 | 20 74 65 78 74 20 63 75 | .of the| text cu|
|00005570| 72 73 6f 72 2e 00 00 00 | 44 41 54 41 aa 00 00 00 |rsor....|DATA....|
|00005580| 50 52 49 4e 54 0a 50 52 | 49 4e 54 20 5b 27 7c 3c |PRINT.PR|INT ['|<|
|00005590| 54 41 42 3e 7c 3c 53 50 | 43 3e 5d 5b 22 64 69 73 |TAB>|<SP|C>]["dis|
|000055a0| 70 6c 61 79 20 73 74 72 | 69 6e 67 22 5d 5b 65 78 |play str|ing"][ex|
|000055b0| 70 72 65 73 73 69 6f 6e | 5d 5b 3b 5d 0a 20 20 50 |pression|][;]. P|
|000055c0| 72 69 6e 74 20 74 68 69 | 6e 67 73 20 69 6e 20 66 |rint thi|ngs in f|
|000055d0| 69 65 6c 64 73 20 64 65 | 66 69 6e 65 64 20 62 79 |ields de|fined by|
|000055e0| 20 40 25 2e 0a 0a 50 52 | 49 4e 54 23 63 68 61 6e | @%...PR|INT#chan|
|000055f0| 6e 65 6c 2c 6c 69 73 74 | 20 6f 66 20 65 78 70 72 |nel,list| of expr|
|00005600| 65 73 73 69 6f 6e 73 0a | 20 20 50 72 69 6e 74 20 |essions.| Print |
|00005610| 64 61 74 61 20 74 6f 20 | 6f 70 65 6e 20 66 69 6c |data to |open fil|
|00005620| 65 2e 00 00 44 41 54 41 | 57 00 00 00 50 52 4f 43 |e...DATA|W...PROC|
|00005630| 0a 50 52 4f 43 66 72 65 | 64 28 78 2c 79 29 0a 20 |.PROCfre|d(x,y). |
|00005640| 20 43 61 6c 6c 20 61 20 | 70 72 6f 63 65 64 75 72 | Call a |procedur|
|00005650| 65 2e 0a 0a 44 45 46 20 | 50 52 4f 43 66 72 65 64 |e...DEF |PROCfred|
|00005660| 28 61 2c 62 29 0a 20 20 | 44 65 66 69 6e 65 20 61 |(a,b). |Define a|
|00005670| 20 70 72 6f 63 65 64 75 | 72 65 2e 00 44 41 54 41 | procedu|re..DATA|
|00005680| 75 00 00 00 50 54 52 23 | 63 68 61 6e 6e 65 6c 0a |u...PTR#|channel.|
|00005690| 78 20 3d 20 50 54 52 23 | 63 68 61 6e 6e 65 6c 0a |x = PTR#|channel.|
|000056a0| 20 20 47 69 76 65 73 20 | 74 68 65 20 70 6f 73 69 | Gives |the posi|
|000056b0| 74 69 6f 6e 20 69 6e 20 | 61 20 66 69 6c 65 2e 0a |tion in |a file..|
|000056c0| 20 20 0a 50 54 52 23 63 | 68 61 6e 6e 65 6c 3d 20 | .PTR#c|hannel= |
|000056d0| 78 20 0a 20 20 53 65 74 | 73 20 74 68 65 20 70 6f |x . Set|s the po|
|000056e0| 73 69 74 69 6f 6e 20 69 | 6e 20 61 20 66 69 6c 65 |sition i|n a file|
|000056f0| 2e 00 00 00 44 41 54 41 | 6b 00 00 00 51 55 49 54 |....DATA|k...QUIT|
|00005700| 0a 51 55 49 54 0a 20 20 | 4c 65 61 76 65 20 74 68 |.QUIT. |Leave th|
|00005710| 65 20 69 6e 74 65 72 70 | 72 65 74 65 72 2e 0a 0a |e interp|reter...|
|00005720| 78 20 3d 20 51 55 49 54 | 0a 20 47 69 76 65 73 20 |x = QUIT|. Gives |
|00005730| 54 52 55 45 20 69 66 20 | 42 41 53 49 43 20 77 61 |TRUE if |BASIC wa|
|00005740| 73 20 65 6e 74 65 72 65 | 64 0a 20 77 69 74 68 20 |s entere|d. with |
|00005750| 61 20 2d 71 75 69 74 20 | 6f 70 74 69 6f 6e 2e 00 |a -quit |option..|
|00005760| 44 41 54 41 7d 00 00 00 | 52 41 44 20 78 0a 54 68 |DATA}...|RAD x.Th|
|00005770| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 67 69 76 65 |is funct|ion give|
|00005780| 73 20 74 68 65 20 76 61 | 6c 75 65 0a 69 6e 20 72 |s the va|lue.in r|
|00005790| 61 64 69 61 6e 73 20 6f | 66 20 61 20 6e 75 6d 62 |adians o|f a numb|
|000057a0| 65 72 20 69 6e 20 64 65 | 67 72 65 65 73 2e 0a 20 |er in de|grees.. |
|000057b0| 20 20 20 52 41 44 28 31 | 38 30 29 20 3d 20 33 2e | RAD(1|80) = 3.|
|000057c0| 31 34 31 35 2e 2e 2e 0a | 20 20 20 20 3c 44 45 47 |1415....| <DEG|
|000057d0| 3e 28 52 41 44 28 78 29 | 29 20 3d 20 78 00 00 00 |>(RAD(x)|) = x...|
|000057e0| 44 41 54 41 58 00 00 00 | 52 45 41 44 0a 52 45 41 |DATAX...|READ.REA|
|000057f0| 44 20 6c 69 73 74 20 6f | 66 20 76 61 72 69 61 62 |D list o|f variab|
|00005800| 6c 65 73 0a 20 20 52 65 | 61 64 20 74 68 65 20 76 |les. Re|ad the v|
|00005810| 61 72 69 61 62 6c 65 73 | 20 69 6e 20 74 75 72 6e |ariables| in turn|
|00005820| 0a 20 20 66 72 6f 6d 20 | 44 41 54 41 20 73 74 61 |. from |DATA sta|
|00005830| 74 65 6d 65 6e 74 73 2e | 44 41 54 41 92 00 00 00 |tements.|DATA....|
|00005840| 52 45 43 54 41 4e 47 4c | 45 0a 52 45 43 54 41 4e |RECTANGL|E.RECTAN|
|00005850| 47 4c 45 20 5b 46 49 4c | 4c 5d 20 78 6c 6f 2c 79 |GLE [FIL|L] xlo,y|
|00005860| 6c 6f 2c 77 69 64 74 68 | 5b 2c 68 65 69 67 68 74 |lo,width|[,height|
|00005870| 5d 0a 20 20 20 20 20 20 | 20 20 20 20 5b 54 4f 20 |]. | [TO |
|00005880| 78 6c 6f 2c 79 6c 6f 5d | 0a 20 20 44 72 61 77 20 |xlo,ylo]|. Draw |
|00005890| 61 20 72 65 63 74 61 6e | 67 6c 65 20 6f 75 74 6c |a rectan|gle outl|
|000058a0| 69 6e 65 20 5b 73 6f 6c | 69 64 5d 2c 0a 20 20 6f |ine [sol|id],. o|
|000058b0| 72 20 63 6f 70 79 2f 6d | 6f 76 65 20 74 68 65 20 |r copy/m|ove the |
|000058c0| 72 65 63 74 61 6e 67 6c | 65 2e 00 00 44 41 54 41 |rectangl|e...DATA|
|000058d0| 9c 00 00 00 52 45 4d 0a | 49 67 6e 6f 72 65 73 20 |....REM.|Ignores |
|000058e0| 65 76 65 72 79 74 68 69 | 6e 67 20 75 6e 74 69 6c |everythi|ng until|
|000058f0| 20 61 20 63 6f 6c 6f 6e | 20 6f 72 20 65 6e 64 0a | a colon| or end.|
|00005900| 6f 66 20 6c 69 6e 65 2e | 20 4e 6f 74 65 20 74 68 |of line.| Note th|
|00005910| 61 74 20 74 6f 20 52 45 | 4d 20 6f 75 74 20 61 20 |at to RE|M out a |
|00005920| 6c 69 6e 65 0a 6c 69 6b | 65 20 50 52 49 4e 54 20 |line.lik|e PRINT |
|00005930| 22 78 3a 22 20 77 69 6c | 6c 20 63 61 75 73 65 20 |"x:" wil|l cause |
|00005940| 70 72 6f 62 6c 65 6d 73 | 20 64 75 65 0a 74 6f 20 |problems| due.to |
|00005950| 74 68 65 20 63 6f 6c 6f | 6e 20 69 6e 20 74 68 65 |the colo|n in the|
|00005960| 20 73 74 72 69 6e 67 2e | 44 41 54 41 78 00 00 00 | string.|DATAx...|
|00005970| 52 45 4e 55 4d 42 45 52 | 20 5b 62 61 73 65 2c 5b |RENUMBER| [base,[|
|00005980| 73 74 65 70 5d 5d 0a 54 | 68 69 73 20 63 6f 6d 6d |step]].T|his comm|
|00005990| 61 6e 64 20 72 65 6e 75 | 6d 62 65 72 73 20 74 68 |and renu|mbers th|
|000059a0| 65 20 6c 69 6e 65 73 20 | 69 6e 20 74 68 65 20 70 |e lines |in the p|
|000059b0| 72 6f 67 72 61 6d 2e 0a | 44 65 66 61 75 6c 74 20 |rogram..|Default |
|000059c0| 76 61 6c 75 65 73 20 66 | 6f 72 20 62 61 73 65 20 |values f|or base |
|000059d0| 61 6e 64 20 73 74 65 70 | 2c 20 69 73 20 31 30 2e |and step|, is 10.|
|000059e0| 44 41 54 41 30 00 00 00 | 52 45 50 45 41 54 0a 52 |DATA0...|REPEAT.R|
|000059f0| 45 50 45 41 54 0a 20 20 | 6c 69 6e 65 73 0a 55 4e |EPEAT. |lines.UN|
|00005a00| 54 49 4c 20 62 6f 6f 6c | 65 61 6e 20 65 78 70 72 |TIL bool|ean expr|
|00005a10| 44 41 54 41 5a 00 00 00 | 52 45 50 4f 52 54 0a 52 |DATAZ...|REPORT.R|
|00005a20| 45 50 4f 52 54 0a 20 20 | 50 72 69 6e 74 20 6c 61 |EPORT. |Print la|
|00005a30| 73 74 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |st error| message|
|00005a40| 2e 0a 0a 78 24 20 3d 20 | 52 45 50 4f 52 54 24 0a |...x$ = |REPORT$.|
|00005a50| 20 20 47 69 76 65 73 20 | 6c 61 73 74 20 65 72 72 | Gives |last err|
|00005a60| 6f 72 20 73 74 72 69 6e | 67 2e 00 00 44 41 54 41 |or strin|g...DATA|
|00005a70| 3b 01 00 00 52 45 53 54 | 4f 52 45 0a 52 45 53 54 |;...REST|ORE.REST|
|00005a80| 4f 52 45 20 5b 2b 5d 5b | 6e 75 6d 62 65 72 5d 0a |ORE [+][|number].|
|00005a90| 20 20 09 52 65 73 74 6f | 72 65 20 74 68 65 20 64 | .Resto|re the d|
|00005aa0| 61 74 61 20 70 6f 69 6e | 74 65 72 20 74 6f 20 66 |ata poin|ter to f|
|00005ab0| 69 72 73 74 20 6f 72 20 | 67 69 76 65 6e 20 6c 69 |irst or |given li|
|00005ac0| 6e 65 2c 20 6f 72 20 6d | 6f 76 65 20 66 6f 72 77 |ne, or m|ove forw|
|00005ad0| 61 72 64 20 6e 75 6d 62 | 65 72 20 6c 69 6e 65 73 |ard numb|er lines|
|00005ae0| 20 66 72 6f 6d 20 74 68 | 65 20 73 74 61 72 74 20 | from th|e start |
|00005af0| 6f 66 20 74 68 65 20 6e | 65 78 74 20 6c 69 6e 65 |of the n|ext line|
|00005b00| 2e 0a 0a 52 45 53 54 4f | 52 45 20 44 41 54 41 0a |...RESTO|RE DATA.|
|00005b10| 20 20 09 52 65 73 74 6f | 72 65 20 44 41 54 41 20 | .Resto|re DATA |
|00005b20| 70 6f 69 6e 74 65 72 20 | 66 72 6f 6d 20 73 74 61 |pointer |from sta|
|00005b30| 63 6b 2e 20 28 50 75 74 | 20 74 68 65 72 65 20 62 |ck. (Put| there b|
|00005b40| 79 20 3c 4c 4f 43 41 4c | 3e 20 44 41 54 41 29 0a |y <LOCAL|> DATA).|
|00005b50| 0a 52 45 53 54 4f 52 45 | 20 45 52 52 4f 52 0a 20 |.RESTORE| ERROR. |
|00005b60| 20 09 52 65 73 74 6f 72 | 65 20 65 72 72 6f 72 20 | .Restor|e error |
|00005b70| 63 6f 6e 74 72 6f 6c 20 | 73 74 61 74 75 73 20 66 |control |status f|
|00005b80| 72 6f 6d 20 73 74 61 63 | 6b 2e 20 28 50 75 74 20 |rom stac|k. (Put |
|00005b90| 74 68 65 72 65 20 62 79 | 20 3c 4c 4f 43 41 4c 3e |there by| <LOCAL>|
|00005ba0| 20 45 52 52 4f 52 29 00 | 44 41 54 41 2b 00 00 00 | ERROR).|DATA+...|
|00005bb0| 52 45 54 55 52 4e 0a 45 | 6e 64 20 6f 66 20 61 20 |RETURN.E|nd of a |
|00005bc0| 3c 47 4f 53 55 42 3e 20 | 73 75 62 72 6f 75 74 69 |<GOSUB> |subrouti|
|00005bd0| 6e 65 2e 00 44 41 54 41 | 17 01 00 00 52 49 47 48 |ne..DATA|....RIGH|
|00005be0| 54 24 0a 52 49 47 48 54 | 24 28 73 74 72 69 6e 67 |T$.RIGHT|$(string|
|00005bf0| 2c 6e 75 6d 62 65 72 29 | 0a 20 20 47 69 76 65 73 |,number)|. Gives|
|00005c00| 20 72 69 67 68 74 6d 6f | 73 74 20 6e 75 6d 62 65 | rightmo|st numbe|
|00005c10| 72 20 0a 20 20 6f 66 20 | 63 68 61 72 61 63 74 65 |r . of |characte|
|00005c20| 72 73 20 66 72 6f 6d 20 | 73 74 72 69 6e 67 2e 0a |rs from |string..|
|00005c30| 0a 52 49 47 48 54 24 28 | 73 74 72 69 6e 67 29 0a |.RIGHT$(|string).|
|00005c40| 20 20 47 69 76 65 73 20 | 72 69 67 68 74 6d 6f 73 | Gives |rightmos|
|00005c50| 74 20 63 68 61 72 61 63 | 74 65 72 2e 0a 0a 52 49 |t charac|ter...RI|
|00005c60| 47 48 54 24 28 73 74 72 | 69 6e 67 20 76 61 72 69 |GHT$(str|ing vari|
|00005c70| 61 62 6c 65 20 5b 2c 63 | 6f 75 6e 74 5d 29 20 3d |able [,c|ount]) =|
|00005c80| 20 73 74 72 69 6e 67 32 | 0a 20 20 4f 76 65 72 77 | string2|. Overw|
|00005c90| 72 69 74 65 20 63 68 61 | 72 61 63 74 65 72 73 20 |rite cha|racters |
|00005ca0| 61 74 20 65 6e 64 20 6f | 66 0a 20 20 73 74 72 69 |at end o|f. stri|
|00005cb0| 6e 67 20 76 61 72 69 61 | 62 6c 65 2c 20 77 69 74 |ng varia|ble, wit|
|00005cc0| 68 20 61 6c 6c 20 5b 6f | 72 20 63 6f 75 6e 74 5d |h all [o|r count]|
|00005cd0| 0a 20 20 63 68 61 72 61 | 63 74 65 72 73 20 66 72 |. chara|cters fr|
|00005ce0| 6f 6d 20 73 74 72 69 6e | 67 32 20 00 44 41 54 41 |om strin|g2 .DATA|
|00005cf0| f3 00 00 00 52 4e 44 0a | 78 20 3d 20 52 4e 44 0a |....RND.|x = RND.|
|00005d00| 20 20 47 69 76 65 73 20 | 61 20 72 61 6e 64 6f 6d | Gives |a random|
|00005d10| 20 69 6e 74 65 67 65 72 | 2e 0a 0a 78 20 3d 20 52 | integer|...x = R|
|00005d20| 4e 44 28 6e 29 20 77 68 | 65 72 65 20 6e 5c 3c 30 |ND(n) wh|ere n\<0|
|00005d30| 20 0a 20 20 49 6e 69 74 | 69 61 6c 69 73 65 20 72 | . Init|ialise r|
|00005d40| 61 6e 64 6f 6d 20 6e 75 | 6d 62 65 72 0a 20 20 67 |andom nu|mber. g|
|00005d50| 65 6e 65 72 61 74 6f 72 | 20 62 61 73 65 64 20 6f |enerator| based o|
|00005d60| 6e 20 6e 2e 0a 0a 78 20 | 3d 20 52 4e 44 28 30 29 |n n...x |= RND(0)|
|00005d70| 0a 20 20 4c 61 73 74 20 | 52 4e 44 28 31 29 20 76 |. Last |RND(1) v|
|00005d80| 61 6c 75 65 2e 0a 78 20 | 3d 20 52 4e 44 28 31 29 |alue..x |= RND(1)|
|00005d90| 0a 20 20 52 61 6e 64 6f | 6d 20 72 65 61 6c 20 30 |. Rando|m real 0|
|00005da0| 2e 2e 31 2e 0a 20 20 0a | 52 4e 44 28 6e 29 20 77 |..1.. .|RND(n) w|
|00005db0| 68 65 72 65 20 6e 3e 31 | 0a 20 20 52 61 6e 64 6f |here n>1|. Rando|
|00005dc0| 6d 20 69 6e 74 65 67 65 | 72 20 62 65 74 77 65 65 |m intege|r betwee|
|00005dd0| 6e 20 31 20 61 6e 64 20 | 49 4e 54 28 6e 29 2e 00 |n 1 and |INT(n)..|
|00005de0| 44 41 54 41 4a 00 00 00 | 52 55 4e 0a 43 6c 65 61 |DATAJ...|RUN.Clea|
|00005df0| 72 20 76 61 72 69 61 62 | 6c 65 73 2c 20 0a 61 6e |r variab|les, .an|
|00005e00| 64 20 73 74 61 72 74 20 | 65 78 65 63 75 74 69 6f |d start |executio|
|00005e10| 6e 0a 61 74 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f |n.at beg|inning o|
|00005e20| 66 20 70 72 6f 67 72 61 | 6d 2e 00 00 44 49 52 24 |f progra|m...DIR$|
|00005e30| 9c 04 00 00 9c 04 00 00 | c8 62 00 00 45 ff ff ff |........|.b..E...|
|00005e40| 7c a1 e8 df a2 00 00 00 | 13 00 00 00 00 00 00 00 ||.......|........|
|00005e50| 53 41 56 45 00 00 00 00 | 6c 63 00 00 45 ff ff ff |SAVE....|lc..E...|
|00005e60| 7f a1 e8 df 6a 00 00 00 | 13 00 00 00 00 00 00 00 |....j...|........|
|00005e70| 53 47 4e 00 d8 63 00 00 | 45 ff ff ff 82 a1 e8 df |SGN..c..|E.......|
|00005e80| 4f 00 00 00 13 00 00 00 | 00 00 00 00 53 49 4e 00 |O.......|....SIN.|
|00005e90| 28 64 00 00 45 ff ff ff | 86 a1 e8 df 78 00 00 00 |(d..E...|....x...|
|00005ea0| 13 00 00 00 00 00 00 00 | 53 4f 55 4e 44 00 00 00 |........|SOUND...|
|00005eb0| a0 64 00 00 45 ff ff ff | a4 a1 e8 df 44 00 00 00 |.d..E...|....D...|
|00005ec0| 13 00 00 00 00 00 00 00 | 53 50 43 00 e4 64 00 00 |........|SPC..d..|
|00005ed0| 45 ff ff ff a5 a1 e8 df | 4d 00 00 00 13 00 00 00 |E.......|M.......|
|00005ee0| 00 00 00 00 53 51 52 00 | 34 65 00 00 45 ff ff ff |....SQR.|4e..E...|
|00005ef0| a9 a1 e8 df 29 00 00 00 | 13 00 00 00 00 00 00 00 |....)...|........|
|00005f00| 53 54 45 50 00 00 00 00 | 60 65 00 00 45 ff ff ff |STEP....|`e..E...|
|00005f10| ab a1 e8 df 41 00 00 00 | 13 00 00 00 00 00 00 00 |....A...|........|
|00005f20| 53 54 45 52 45 4f 00 00 | a4 65 00 00 45 ff ff ff |STEREO..|.e..E...|
|00005f30| b0 a1 e8 df 1a 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00005f40| 53 54 4f 50 00 00 00 00 | c0 65 00 00 45 ff ff ff |STOP....|.e..E...|
|00005f50| b1 a1 e8 df 49 00 00 00 | 13 00 00 00 00 00 00 00 |....I...|........|
|00005f60| 53 54 52 21 78 32 34 00 | 0c 66 00 00 45 ff ff ff |STR!x24.|.f..E...|
|00005f70| b3 a1 e8 df 3c 00 00 00 | 13 00 00 00 00 00 00 00 |....<...|........|
|00005f80| 53 54 52 49 4e 47 21 78 | 32 34 00 00 48 66 00 00 |STRING!x|24..Hf..|
|00005f90| 45 ff ff ff b5 a1 e8 df | 4d 00 00 00 13 00 00 00 |E.......|M.......|
|00005fa0| 00 00 00 00 53 55 4d 00 | 98 66 00 00 45 ff ff ff |....SUM.|.f..E...|
|00005fb0| ba a1 e8 df 51 00 00 00 | 13 00 00 00 00 00 00 00 |....Q...|........|
|00005fc0| 53 55 4d 4c 45 4e 00 00 | ec 66 00 00 45 ff ff ff |SUMLEN..|.f..E...|
|00005fd0| dd a1 e8 df 8b 00 00 00 | 13 00 00 00 00 00 00 00 |........|........|
|00005fe0| 53 57 41 50 00 00 00 00 | 78 67 00 00 45 ff ff ff |SWAP....|xg..E...|
|00005ff0| de a1 e8 df 26 01 00 00 | 13 00 00 00 00 00 00 00 |....&...|........|
|00006000| 53 59 53 00 a0 68 00 00 | 45 ff ff ff e2 a1 e8 df |SYS..h..|E.......|
|00006010| cc 00 00 00 13 00 00 00 | 00 00 00 00 54 41 42 00 |........|....TAB.|
|00006020| 6c 69 00 00 45 ff ff ff | e3 a1 e8 df 56 00 00 00 |li..E...|....V...|
|00006030| 13 00 00 00 00 00 00 00 | 54 41 4e 00 c4 69 00 00 |........|TAN..i..|
|00006040| 45 ff ff ff e5 a1 e8 df | 69 00 00 00 13 00 00 00 |E.......|i.......|
|00006050| 00 00 00 00 54 45 4d 50 | 4f 00 00 00 30 6a 00 00 |....TEMP|O...0j..|
|00006060| 45 ff ff ff e8 a1 e8 df | 27 00 00 00 13 00 00 00 |E.......|'.......|
|00006070| 00 00 00 00 54 48 45 4e | 00 00 00 00 58 6a 00 00 |....THEN|....Xj..|
|00006080| 45 ff ff ff ee a1 e8 df | 6a 00 00 00 13 00 00 00 |E.......|j.......|
|00006090| 00 00 00 00 54 49 4d 45 | 00 00 00 00 c4 6a 00 00 |....TIME|.....j..|
|000060a0| 45 ff ff ff ef a1 e8 df | a0 00 00 00 13 00 00 00 |E.......|........|
|000060b0| 00 00 00 00 54 49 4e 54 | 00 00 00 00 64 6b 00 00 |....TINT|....dk..|
|000060c0| 45 ff ff ff 15 a2 e8 df | 23 00 00 00 13 00 00 00 |E.......|#.......|
|000060d0| 00 00 00 00 54 4f 00 00 | 88 6b 00 00 45 ff ff ff |....TO..|.k..E...|
|000060e0| 19 a2 e8 df 3a 00 00 00 | 13 00 00 00 00 00 00 00 |....:...|........|
|000060f0| 54 4f 50 00 c4 6b 00 00 | 45 ff ff ff 1b a2 e8 df |TOP..k..|E.......|
|00006100| 90 00 00 00 13 00 00 00 | 00 00 00 00 54 52 41 43 |........|....TRAC|
|00006110| 45 00 00 00 54 6c 00 00 | 45 ff ff ff 1c a2 e8 df |E...Tl..|E.......|
|00006120| 43 00 00 00 13 00 00 00 | 00 00 00 00 54 52 55 45 |C.......|....TRUE|
|00006130| 00 00 00 00 98 6c 00 00 | 45 ff ff ff 1e a2 e8 df |.....l..|E.......|
|00006140| 47 00 00 00 13 00 00 00 | 00 00 00 00 54 57 49 4e |G.......|....TWIN|
|00006150| 00 00 00 00 e0 6c 00 00 | 45 ff ff ff 20 a2 e8 df |.....l..|E... ...|
|00006160| 67 00 00 00 13 00 00 00 | 00 00 00 00 54 57 49 4e |g.......|....TWIN|
|00006170| 4f 00 00 00 48 6d 00 00 | 45 ff ff ff 25 a2 e8 df |O...Hm..|E...%...|
|00006180| 29 00 00 00 13 00 00 00 | 00 00 00 00 55 4e 54 49 |).......|....UNTI|
|00006190| 4c 00 00 00 74 6d 00 00 | 45 ff ff ff 26 a2 e8 df |L...tm..|E...&...|
|000061a0| 68 00 00 00 13 00 00 00 | 00 00 00 00 55 53 52 00 |h.......|....USR.|
|000061b0| dc 6d 00 00 45 ff ff ff | 28 a2 e8 df 5e 00 00 00 |.m..E...|(...^...|
|000061c0| 13 00 00 00 00 00 00 00 | 56 41 4c 00 3c 6e 00 00 |........|VAL.<n..|
|000061d0| 45 ff ff ff 4c a2 e8 df | af 00 00 00 13 00 00 00 |E...L...|........|
|000061e0| 00 00 00 00 56 44 55 00 | ec 6e 00 00 45 ff ff ff |....VDU.|.n..E...|
|000061f0| 4d a2 e8 df 51 00 00 00 | 13 00 00 00 00 00 00 00 |M...Q...|........|
|00006200| 56 4f 49 43 45 00 00 00 | 40 6f 00 00 45 ff ff ff |VOICE...|@o..E...|
|00006210| 50 a2 e8 df 3b 00 00 00 | 13 00 00 00 00 00 00 00 |P...;...|........|
|00006220| 56 4f 49 43 45 53 00 00 | 7c 6f 00 00 45 ff ff ff |VOICES..||o..E...|
|00006230| 54 a2 e8 df 45 00 00 00 | 13 00 00 00 00 00 00 00 |T...E...|........|
|00006240| 56 50 4f 53 00 00 00 00 | c4 6f 00 00 45 ff ff ff |VPOS....|.o..E...|
|00006250| 5a a2 e8 df de 00 00 00 | 13 00 00 00 00 00 00 00 |Z.......|........|
|00006260| 57 41 49 54 00 00 00 00 | a4 70 00 00 45 ff ff ff |WAIT....|.p..E...|
|00006270| 5c a2 e8 df 26 00 00 00 | 13 00 00 00 00 00 00 00 |\...&...|........|
|00006280| 57 48 45 4e 00 00 00 00 | cc 70 00 00 45 ff ff ff |WHEN....|.p..E...|
|00006290| 5f a2 e8 df 29 00 00 00 | 13 00 00 00 00 00 00 00 |_...)...|........|
|000062a0| 57 48 49 4c 45 00 00 00 | f8 70 00 00 45 ff ff ff |WHILE...|.p..E...|
|000062b0| 63 a2 e8 df 27 00 00 00 | 13 00 00 00 00 00 00 00 |c...'...|........|
|000062c0| 57 49 44 54 48 00 00 00 | 44 41 54 41 a2 00 00 00 |WIDTH...|DATA....|
|000062d0| 53 41 56 45 20 5b 66 69 | 6c 65 6e 61 6d 65 5d 0a |SAVE [fi|lename].|
|000062e0| 54 68 69 73 20 63 6f 6d | 6d 61 6e 64 20 73 61 76 |This com|mand sav|
|000062f0| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 70 |es the c|urrent p|
|00006300| 72 6f 67 72 61 6d 2e 0a | 49 66 20 66 69 6c 65 6e |rogram..|If filen|
|00006310| 61 6d 65 20 69 73 20 6f | 6d 69 74 74 65 64 2c 20 |ame is o|mitted, |
|00006320| 61 6e 64 20 66 69 72 73 | 74 20 6c 69 6e 65 20 0a |and firs|t line .|
|00006330| 69 6e 20 70 72 6f 67 72 | 61 6d 20 69 73 20 31 30 |in progr|am is 10|
|00006340| 20 52 45 4d 20 3e 73 74 | 72 69 6e 67 2c 0a 74 68 | REM >st|ring,.th|
|00006350| 69 73 20 73 74 72 69 6e | 67 20 69 73 20 75 73 65 |is strin|g is use|
|00006360| 64 20 69 6e 73 74 65 61 | 64 2e 00 00 44 41 54 41 |d instea|d...DATA|
|00006370| 6a 00 00 00 53 47 4e 20 | 78 0a 54 68 69 73 20 66 |j...SGN |x.This f|
|00006380| 75 6e 63 74 69 6f 6e 20 | 67 69 76 65 73 20 74 68 |unction |gives th|
|00006390| 65 20 76 61 6c 75 65 73 | 0a 20 20 2d 31 20 69 66 |e values|. -1 if|
|000063a0| 20 78 20 69 73 20 6e 65 | 67 61 74 69 76 65 0a 20 | x is ne|gative. |
|000063b0| 20 20 30 20 69 66 20 78 | 20 69 73 20 7a 65 72 6f | 0 if x| is zero|
|000063c0| 0a 20 20 20 31 20 69 66 | 20 78 20 69 73 20 70 6f |. 1 if| x is po|
|000063d0| 73 69 74 69 76 65 00 00 | 44 41 54 41 4f 00 00 00 |sitive..|DATAO...|
|000063e0| 53 49 4e 20 78 20 0a 54 | 68 69 73 20 66 75 6e 63 |SIN x .T|his func|
|000063f0| 74 69 6f 6e 20 67 69 76 | 65 73 0a 74 68 65 20 73 |tion giv|es.the s|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
